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VORWORT 


Der Wunsch vieler Amigabesitzer ist es, auf dem Gerät, das für 
seine umwerfenden Grafikleistungen bekannt ist, selber Spiele zu 
entwickeln. 

Mit der Buchreihe "Amiga Spiele selber programmieren" werden so¬ 
wohl Fortgeschrittene als auch Programmiereinsteiger in die Pro¬ 
grammierung eines Spieles eingeführt. In Band I wurden bereits die 
Grundlagen erläutert, weshalb darauf in diesem Buch nicht mehr 
näher eingegangen wird. Band 2 beschäftigt sich mit den Tricks und 
Feinheiten, die nötig sind, um den Amiga wirklich auszureizen. 

Den Anfang bildet eine kurze Einführung in die Musikprogram¬ 
mierung. hier lernen Sie, wie eine Abspielroutine für Module 
aufgebaut ist, damit Sie eigene Musikstücke in Ihre Programme 
integrieren können. 

Ein großes Kapitel ist dem Blitter, einem der wichtigsten Bausteine 
des Amiga, gewidmet. Daß man mit ihm nicht nur Speicherbereiche 
verschieben, sondern auch Linien ziehen, Flächen füllen oder 
Objekte drehen kann, wird in diesem Kapitel ausführlich demon¬ 
striert. 

Anhand von einigen praktischen Programmbeispielen wird das Zu¬ 
sammenspiel der einzelnen Chips wie Blitter und Copper erklärt. 
Alle Programmlistings, Grafiken und Musikstücke sowie einige 
nützliche Tools finden Sie auf der beigelegten Programmdiskette. 

Großer Dank gebührt Hannes Seifert, der mit wertvoller Hilfe und 
fachmännischer Unterstützung wesentlich zu diesem Buch beige¬ 
tragen hat. 

Ich wünsche Ihnen viel Spaß und gutes Gelingen mit diesem Buch. 
Wien, im April 1996 
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1. DER MAXON ASSEMBLER 


WARUM ÜBERHAUPT ASSEMBLER? 

Assembler ist die Sprache, mit der man einen Computer am 
maschinennächsten programmieren kann. Besonders der Amiga mit 
seinem komfortablen 68000er Prozessor eignet sich hervorragend 
für die Assemblerprogrammierung. 

Gerade durch diese Programmiersprache kann man sich ungehindert 
auf dem Gerät bewegen und es sind fast alle Tricks möglich. 
Besonders bei der Spieleprogrammierung ist dies hilfreich. Hier ist 
es nicht nur wichtig, auf besondere technische Tricks zurückgreifen 
zu können, sondern daß man auch extrem kurzen Code schreiben 
kann. 


ASSEMBLER, ABER WELCHER? 

Die Vielzahl der am Markt befindlichen Assembler macht einem 
Antanger die Entscheidung für das richtige Programm nicht gerade 
einfach. Sämtliche in diesem Buch abgebildeten Listings sind für 
den Seka, bzw. ASMOne Assembler geschrieben. Vor allem der 
Seka-Assembler ist schon sehr alt und wahrscheinlich heute über¬ 
haupt nicht mehr zu beziehen. Dennoch handelt es sich hierbei um 
ein Programm, das wahrscheinlich das am weitesten verbreitetste 
Programmiertool ist. 

Es sollte aber keinerlei Schwierigkeiten bereiten, die Programme 
auch unter einem anderen Assembler zum Laufen zu bringen. 
Wichtigster Grundsatz hierbei ist, daß das fertige Programm aus 
dem Chip-Memory gestartet wird. 



DER MAXON ASSEMBLER 


Der von der Firma Maxon erhältliche Assembler ist ein komplexes 
Entwicklungspaket, dem ein gut durchdachter Modulaufbau zu 
Grunde liegt. Das Programm besteht aus drei großen Teilen: 

Der Editor 
Der Assembler 
Der Monitor 

Alle drei Teile wurden in einem einzigen Programm realisiert, 
können aber bei Bedarf abgeschaltet werden, um Speicherplatz zu 
sparen. 


DER EDITOR 

Der mitgelieferte Editor ist angenehm über Maus oder Tastatur¬ 
shortcuts zu bedienen und verfügt über eine angenehme Verarbei¬ 
tungsgeschwindigkeit, was gerade bei der Assemblerprogram¬ 
mierung sehr wichtig ist. 

Die umfangreichen Zusatzfunktionen, wie z.B. Makros, wurden in 
verschiedene Menüs unterteilt. Es gibt auch eine Fülle an prak¬ 
tischen Funktionen, die man erst im Laufe der fortgeschrittenen 
Programmierung zu schätzen lernt, z.B. die Funktion DC.x erzeugen. 


DER ASSEMBLER 

Dies ist wohl der wichtigste Teil des Entwicklungspaketes. Durch 
einen Menüpunkt kann man zwischen dem Assembler und dem 
Editor umschalten. 
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Das Assemblierer! der Quelldatei selbst geht recht flott. Wurde ein 
Fehler entdeckt, wird dieser vom Programm angezeigt und man kann 
gleich in den Editor zurückschalten, um den Fehler zu korrigieren. 

Eine sehr angenehme Funktion ist der Copperassembler. Mit diesem 
Programmteil erhält man eine wichtige Hilfe bei der Program¬ 
mierung von Copperlisten. Man kann eine Copperliste anzeigen las¬ 
sen und mit diesem Tool verändern. Fortgeschrittene Programmierer 
werden das zu schätzen wissen. 

Ebenfalls sehr lobenswert ist die Optimierungsfunktion. Ist diese 
aktiviert, erkennt das Programm automatisch „schlecht“ oder 
unpassend verwendete Befehle und ersetzt diese durch einen 
optimalen Befehl. 


DER MONITOR 

Der dritte und letzte große Programmteil ist der Monitor. Dieser 
unterstützt nicht nur die ohnehin selbstverständlichen Funktionen 
wie Speicherdarstellung in Hex oder ASCII, sowie Disketten¬ 
operationen wie Block lesen oder schreiben, sondern dieses Modul 
verfügt auch über einen sehr umfangreichen Debugger. Mit diesem 
ist man in der Lage, sein eigenes Programm nach möglichen Fehlern 
zu durchforsten. Wenn ein Programm einmal zu einer unüber¬ 
sichtlichen Zahlen- und Buchstabenkolone angewachsen ist, kanrt 
man einen Fehler nur noch mit Hilfe eines Debuggers lokalisieren 
und beseitigen. Hier werden auch alle gängigen Funktionen 
unterstützt, wie zum Beispiel Einzelschrittabarbeitung oder das 
Setzen von Breakpoints. 

Ein weiteres interessantes Feature ist der Reassembler. Mit diesem 
Tool können Sie bereits fertig erstellte Programm wieder zurück in 
Quellcode verwandeln und bei Bedarf verändern. Dieses Werkzeug 
ist aber eher für den fortgeschrittenen Anwender interessant, da es 



sehr genaue Kenntnisse der Programmierung erfordert, einen 
fertigen Code zu interpretieren. 


DAS HANDBUCH 

Das mitgelieferte Handbuch ist zwar nicht allzu umfangreich, erklärt 
aber sämtliche Programmteile ausreichend in leicht verständlicher 
Sprache. Durch die vielen Abbildungen sollte es auch einem 
Assembler-Einsteiger leicht fallen, sich mit der Materie auseinander 
zu setzen. 

Der gut gestaltete Anhang des Handbuches erklärt nicht nur den 
Befehlssatz des 68000er und 68010er, sondern zeigt auch sämtliche 
Fehlermeldungen auf, die das Programm ausgeben kann. Außerdem 
wurden Updateversionen des Assemblers in den zwei letzten 
Kapiteln berücksichtigt und die neuen Features erklärt. 

Abschließend kann man sagen, daß der Maxon Assembler ein gutes 
Programmierwerkzeug ist, daß man Einsteigern und Profis gleicher¬ 
maßen ans Herz legen kann. 
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2. MUSIKPROGRAMMIERUNG 


Wie man hardwaremäßig Samples abspielt, haben wir schon in Band 
1 besprochen. Nim ist es an der Zeit, auch das Abspielen von ganzen 
Musikstücken zu erläutern. 


WAS IST MUSIKPROGRAMMIERUNG? 

Das Abspielen eines Musikstückes unterscheidet sich nicht wesent¬ 
lich vom Abspielen eines einzelnen Samples. Wie wir schon gehört 
haben, verfügt der Amiga über vier verschiedene Musikkanäle, die 
gleichzeitig Samples abspielen können. 

Ein Stück ist aus mehreren Samples zusammengesetzt, die in den 
unterschiedlichsten Raten abgespielt werden. Dadurch ergibt sich, 
gute Komposition vorausgesetzt, ein wohlklingendes Lied. 

Vorteil gegenüber einem einzigen langen Sample ist, daß man 
hierbei viel weniger Speicher verbraucht, da die einzelnen Samples 
beliebig untereinander kombiniert werden können. 

Jedes Sample wird in eine Liste, auch Pattern genannt, eingetragen, 
wobei vermerkt wird, in welcher Tonhöhe es abgespielt werden soll. 
Für jeden der vier Kanäle werden die Samples bestimmt. 

Komponiert werden die Musikstücke mit einem Soundtracker oder 
auch Modul-Player. Durch einfachste Bedienung brauchen die Musi¬ 
ker keine Ahnung von der Programmierung haben. 


WIE IST EIN PATTERN AUFGEBAUT? 

Anfänglich werden die Samples definiert. Jedes Sample erhält eine 
Nummer, unter der es später aufgerufen wird. 

Zuerst steht die Note, die für die erste Stimme (Kanal 1) 
angeschlagen werden soll. Allerdings wurde der Wert (I Word) 
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nicht als Note, sondern direkt als Rate eingetragen. Das nächste Byte 
enthält im Highnibble die Nummer jenes Samples, das angeschlagen 
werden soll. Das Lownibble zeigt an, welcher Effekt gespielt werden 
soll. Ein Effekt ist beispielsweise die Lautstärkenänderung. Das 
nächste Byte gibt an, welchen Wert der gewählte Effekt haben soll. 
Beim Beispiel der Lautstärke wäre das, um wieviel diese erhöht oder 
erniedrigt werden soll. Prinzipiell kann ein Lied aus beliebig viele 
Patterns bestehen. 


Rufbau eines Pattern: 


Rate Effektbyte Effektvalue 


^CJOOfci 

C>of> 

<ggr 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 


XX 

5rx 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

XXXX 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

XXXX 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

xxxx 

XX 

XX 

St inne 

1 

St inne 

2 

St inne 

3 

St inne 

4 


Hier nun das vollständige Listing zum Abspielen eines fertigen 
Soundtracker Moduls: 


Abspielen eines Musikmoduls 
Das File MUSIC muß nach mt data nachgeladen werden! 


s: 

bsr.s 

mtinit 

loop: 

move.l 

$dffl004,d0 


and.l 

#$fffl)0,d0 


crnp.l 

#$00003000,d0 


bne.s 

loop 


bsr.L 

mt music 
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btst 

bne.s 

end: bsr.L 

e: rts 

mtinit: lea 

lea 

moveq 

moveq 

moveq 

mt_lop2: move.b 
cmp.b 
ble.s 
move.l 

mtlop: dbf 

addq.b 

asl.l 

asl.l 

lea 

lea 

add.w 

moveq 

mt_lop3: clr.l 

move.l 

moveq. 

move.w 

clr.b 

asl.l 

add.l 

add.l 

dbf 


#6,$bfe001 

loop 

mt end 


mt_data,aü 

$3b8(a0),al 

#$7f,d0 

#0,d2 

#0,d 1 

(al )+,dl 

d2,dl 

mtlop 

dl,d2 

d0,mt_lop2 

#l,d2 

#8,d2 

#2,d2 

4(al,d2.l),a2 

mt_samplestarts(pc),a 1 

#42,a0 

#$le,dO 

(a2) 

a2,(al)+ 

#0,dl 

(aO),dl 

2(a0) 

#l,dl 

dl,a2 

#$le,aO 

d0,mt_lop3 
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or.b 

move.b 

moveq 

lea 

move.w 

move.w 

move.w 

move.w 

clr.b 

clr.b 

clr.w 

rts 

mtend: clr.w 

clr.w 
clr.w 
clr.w 
move.w 
rts 

mtmusic: 

lea 

addq.b 

move.b 

cmp.b 

blt 

clr.b 

lea 

lea 

lea 

lea 

moveq 

moveq 

move.b 


#2,$bfe001 

#6,mt_speed 

#0,d0 

$dffl)00,aO 

d0,$a8(a0) 

dO,$b8(aO) 

d0,$c8(a0) 

d0,$d8(a0) 

mtsongpos 

mtcounter 

mtpattpos 


$dfföa8 

$dfföb8 

$dftDc8 

$dffT)d8 

#$f,$dff096 


mt_data,aO 

# I ,mt_counter 

mt_counter(pc),dü 

mt_speed(pc),dO 

mtnonew 

mtcounter 

mt_data,aO 

$c(a0),a3 

$3b8(a0),a2 

$43c(aO),aO 

#0,d0 

#0,dl 

mt_songpos(pc),dü 
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move.b 

lsl.w 

lsl.w 

add.w 

clr.vv 

lea 

lea 

bsr 

addq.l 

lea 

lea 

bsr 

addq.l 

lea 

lea 

bsr 

addq.l 

lea 

lea 

bsr 

bsr 

move.w 

or.w 

move.w 

bsr 

mt nodma: 

lea 

lea 

move.l 

move.w 

move.w 

move.l 

move.w 

move.w 


(a2,d0.w),d 1 
#8,dl 
#2,d I 

mt pattpos(pc),d 1 
mt dmacon 

$dtT()a(),a5 
mt_voicel(pc),a4 
mt playvoice 
#4,dl 

$dffT)bO,a5 

mt_voice2(pe),a4 

mtplayvoice 

#4,dl 

$dfföc0,a5 
mt_voice3(pc),a4 
mt playvoice 
#4,d I 

$dffOdO,a5 
mt voice4(pc),a4 
mtplayvoice 

mt wait 

mt dmacon(pc),dO 
#$8000,d0 
dO,$dffT)96 
mt wait 

mt_voicel(pc),a4 

$dff'000,a3 

$a(a4),$aü(a3) 

$e(a4),$a4(a3) 

$!2(a4),$a8(a3) 

$a+$ I c(a4),$b0(a3) 
$e+$lc(a4),$b4(a3) 

$ 12+$ I c(a4),$b8(a3) 
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move.l 

move.w 

move.w 

move.l 

move.w 

move.w 

add.w 

cmp.w 

bne.s 

mtnext: clr.w 
clr.b 
lea 

addq.b 

and.b 

move.b 

cmp.b 

bne.s 

move.b 

mtexit: tst.b 
bne.s 
rts 

mtwait: moveq 
mt_wai2: move.b 
mt wai3: cmp.b 
beq.s 
dbf 
moveq 

mt_wai4: dbf 
mtnonew: 

lea 

lea 

bsr 

lea 


Sa+$38(a4),$c0(a3) 

$e+$38(a4),$c4(a3) 

$ 12+$38(a4),$c8(a3) 

$a+$54(a4),$d0(a3) 

$e+$54(a4),$d4(a3) 

$ 12+$54(a4),$d8(a3) 

#$ 10,mt_pattpos 

#$400,mt_pattpos 

mtexit 

mtpattpos 

mtbreak 

mt data,aO 

# I jntsongpos 

#$7f,mt_songpos 

$3b6(a0),d0 

mt_songpos(pc),dO 

mtexit 

$3b7(a0),mt_songpos 
mtbreak 
mt next 


#4,d3 

$dftT)06,d2 

$dffD06,d2 

mt_wai3 

d3,mt_wai2 

#8,d2 

d2,mt wai4 


mt_voicel(pc),a4 

$dffOaO,a5 

mtcom 

mt_voice2(pc),a4 
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lea 

$dffi)b(),a5 

bsr 

mt com 

lea 

mt voice3(pc),a4 

lea 

$dff0c0,a5 

bsr 

mt com 

lea 

mt voice4(pc),a4 

lea 

$dlT0d(),a5 

bsr 

mtconi 

bra.s 

mt exit 

dc.w 



(),$ 1 e,$3c,$5a,$78,$96,$b4,$d2,$ft),$ 1 ()e,$ 12c,$ 14a 
dc.w 

$ 168,$ 186,$ I a4,$ I c2,$ I eO,$ 1 fe,$21 c,$23a,$258,$276 
dc.w 

$294,$2b2,$2d(),$2ee,$30c,$32a,$348,$366,$384,$3a2 

mtplayvoice: 


move.l 

(aO.d 1.1),(a4) 

moveq 

#0.d2 

move.b 

2(a4).d2 

Isr.b 

#4,d2 

move.b 

(a4).d0 

and.b 

#$fö,dO 

or.b 

d0.d2 

beq.s 

mtoldinstr 

lea 

mt samplestarts-4(pc),al 

asl.w 

#2.d2 

move.l 

(al.d2.l),4(a4) 

Isr.w 

#l.d2 

move.w 

mt mulu(pc.d2.w),d2 

move.w 

(a3,d2.w),8(a4) 

move.w 

2(a3,d2.w),$l2(a4) 

moveq 

#0,d3 
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move.vv 

tst.w 

beq.s 

move.l 

asl.w 

add.l 

move.l 

move.w 

add.w 

move.w 

bra.s 

mtnoloop: 

move.l 

add.l 

move.l 

mthejaSverige: 

move.w 

mtoldinstr: 

move.w 

and.w 

beq 

tst.w 

beq.s 

tst.b 

bne.s 

move.b 

and.b 

cmp.b 

beq.s 

cmp.b 

beq.s 

move.w 

and.w 

move.w 


4(a3,d2.w),d3 

d3 

mtnoloop 

4(a4),d0 

#l,d3 

d3,d0 

d0,$a(a4) 

4(a3,d2.w),d0 

6(a3,d2.w),d0 

d0,8(a4) 

mthejaSverige 

4(a4),d0 

d3,dü 

d0,$a(a4) 

6(a3,d2.w),$e(a4) 


(a4),d0 

#$m;do 

mt com2 
8(a4) 

mt stopsound 

$!2(a4) 

mtstopsound 

2(a4),d0 

#$f,d() 

#5,d0 

mtsetport 

#3,d0 

mtsetport 

(a4),$10(a4) 

#$fff,$10(a4) 

$la(a4),$dff096 
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clr.b 

$19(a4) 

move.l 

4(a4),(a5) 

move.w 

8(a4),4(a5) 

move.w 

$IO(a4),6(a5) 

move.w 

$la(a4),d0 

or.w 

dO,mt_dmacon 

bra 

mt_com2 

mtstopsound: 

move.w 

$la(a4),$dff096 

bra 

ml com2 

mtsetport: 

move.w 

(a4),d2 

and.w 

#$fff,d2 

move.w 

d2,$16(a4) 

move.w 

$IO(a4),dO 

clr.b 

$l4(a4) 

cmp.w 

d0,d2 

beq.s 

mt clrport 

bge 

mt_com2 

move.b 

#l,$14(a4) 

bra 

mt com2 

mtclrport: 

clr.w 

$16(a4) 

rts 

mtport: move.b 

3(a4),d0 

beq.s 

mt port2 

move.b 

dO,$l 5(a4) 

clr.b 

3(a4) 

mt_port2: 

tst.w 

SI6(a4) 

beq.s 

mt rts 

moveq 

#0.d0 
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move.b 

$15(a4),d0 

tst.b 

$l4(a4) 

bne.s 

mtsub 

add.w 

d0,$10(a4) 

move.w 

$16(a4),dO 

cmp.w 

$IO(a4),dO 

bgt.s 

mtportok 

move.w 

$16(a4),$10(a4) 

clr.w 

$16(a4) 

mtportok: 


move.w 

$10(a4),6(a5) 

mtrts: rts 


mtsub: sub.w 

d0,$10(a4) 

move.w 

$!6(a4),d0 

cmp.w 

$10(a4),d0 

blt.s 

mtportok 

move.w 

SI6(a4),$IO(a4) 

clr.w 

$16(a4) 

move.w 

$IO(a4),6(a5) 

rts 



mtsin: 

dc.b 0,$ 18,$31 ,$4a,$61 ,$78,$8d,$a I ,$b4,$c5,$d4,$e0,$eb,$f4 
dc.b $fa,$fd 

dc.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a 1 ,$8d,$78,$61 

dc.b $4a,$3 I ,$ 18 

mtvib: move.b $3(a4),d0 

beq.s mt_vib2 

move.b d0,$18(a4) 

mt_vib2: move.b $19(a4),d0 

Isr.w #2,d0 

and.w #$lf,dO 

moveq #0,d2 
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move.b 

mt sin(pc,d0.w),d2 


move.b 

$ 18(a4),d0 


and.w 

#$f,dO 


mulu 

d0,d2 


Isr.w 

#7,d2 


move.w 

$10(a4),d0 


tst.b 

$l9(a4) 


bmi.s 

mtvibsub 


add.w 

d2.dü 


bra.s 

mt_vib3 

mtvibsub: 



sub.w 

d2,d0 

mt_vib3: 

move.w 

d0.6(a5) 


move.b 

$18(a4),d0 


Isr.w 

#2,d() 


and.w 

#$3c,d0 


add.b 

rts 

d0.$!9(a4) 

mtarplist: 


dc.b 

0,1,2,0.1,2,0,1,2,0,1,2,0 


dc.b 

1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1,2,0,1 

mtarp: 

moveq 

#0,d0 


move.b 

mt_counter(pc),d0 


move.b 

mt arplist(pc,d0.w),d0 


beq.s 

mtarpO 


cmp.b 

#2,d0 


beq.s 

mt arp2 

mt arp 1: 

moveq 

#0,d0 


move.b 

3(a4),d0 


Isr.b 

#4,d0 


bra.s 

mtarpdo 

mt_arp2: 

moveq 

#0,d0 


move.b 

3(a4),d0 


and.b 

#$f,d0 
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mtarpdo: 


asl.w 

#l,dO 

move.w 

$ 10(a4),d 1 

and.w 

#$fff,d 1 

lea 

mt periods(pc),aO 

moveq 

#$24,d2 

mt_arp3: cmp.w 

(aO)+,dl 

bge.s 

mtarpfound 

dbf 

d2,mt arp3 

mtarpO: move.w 

$10(a4),6(a5) 

rts 


mtarpfound: 


move.w 

-2(a0,d0.w),6(a5) 

rts 


mtnormper: 


move.w 

$10(a4),6(a5) 

rts 


mtcom: move.w 

2(a4),d0 

and.w 

#$fff.dO 

beq.s 

mtnormper 

move.b 

2(a4),d0 

and.b 

#$f,dO 

tst.b 

dO 

beq.s 

mt arp 

cmp.b 

#l.dO 

beq.s 

mtportup 

cmp.b 

#2,d0 

beq.s 

mt portdown 

cmp.b 

#3.d0 

beq 

mt port 

cmp.b 

#4,d0 

beq 

mt vib 

cmp.b 

#5,d0 

beq.s 

mtvolport 
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cmp.b 

beq.s 

move.w 

cmp.b 

beq.s 

rts 


mt_portup ; 

moveq 

move.b 

sub.w 

move.w 

cmp.w 

bpl.s 

move.w 

mt_p or tup2: 

move.w 

rts 

mtportdown: 

moveq 
move.b 
add.w 
move.w 
cmp.w 
bmi.s 
move.w 
mt portdown2: 

move.w 

rts 


mtvolvib: 

bsr 

bra.s 

mtvolport: 

bsr 


#6,d0 

mtvolvib 

$10(a4),6(a5) 

#$a,dü 

mt volslide 


3(a4),d0 

dO,$IO(a4) 

$10(a4),d0 

#$7LdO 

mt_portup2 

#$71,$IO(a4) 


$10(a4),6(a5) 


#0,d0 

3(a4),d0 

d0,$10(a4) 

$10(a4),d0 

#$358,dO 

mt_portdown2 

#$358,$10(a4) 

$10(a4),6(a5) 


mt vib2 
mtvolslide 

mt port2 
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mtvolslide: 

moveq #0,d0 

move.b 3(a4),d0 

Isr.b #4,d0 

beq.s mt_vol3 

add.b d0,$13(a4) 

cmp.b #$40,$13(a4) 

bmi.s mt_vol2 

move.b #$40,$13(a4) 

mt_vol2: moveq #0,d0 

move.b $13(a4),d0 

move.w d0,8(a5) 

rts 

mt_vol3: move.b 3(a4),d0 

and.b #$f,dO 

sub.b d0,$13(a4) 

bpl.s mt_vol4 

clr.b $ 13(a4) 

mt_vol4: moveq #0,d0 

move.b $13(a4),d0 

move.w d0,8(a5) 

rts 

mt_com2: move.b $2(a4),d0 

and.b #$f,dO 

cmp.b #$e,dO 

beq.s mtfilter 

cmp.b #$d,dO 

beq.s mtpattbreak 

cmp.b #$b,dO 

beq.s mtsongjmp 

cmp.b #$c,dO 

beq.s mtsetvol 

cmp.b #$f,dO 

beq.s mtsetspeed 

rts 
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mtfilter: 

move.b 

and.b 

asl.b 

and.b 

or.b 

rts 

mt pattbreak: 

move.b 

move.w 

rts 

mtsongjmp: 

move.b 

move.b 

subq.b 

move.b 

rts 

mtsetvol: 

cmp.b 

bls.s 

move.b 

mt_sv2: moveq 

move.b 
move.b 
move.w 
rts 

mt setspeed: 

moveq 

move.b 

cmp.b 

bls.s 

moveq 


3(a4),d0 
# 1 ,d0 
#l,dO 

#$fd,$bfe001 

d0,$bfe001 


#l,mt_break 
#$400-$ 10,mt_pattpos 


#l,mt break 
3(a4),d0 
# I ,d0 

dOjntsongpos 


#$40,3(a4) 

mt_sv2 

#$40,3(a4) 

#0,d0 

3(a4),d0 

d0,$13(a4) 

d0,8(a5) 


#0,d0 
3(a4),d0 
#$1 f,d0 
mt_sp2 
#$ 1 f,d0 


29 



mt _sp2: 

tst.w 

d0 


bne.s 

mt_sp3 


moveq 

# 1 ,d0 

mt_sp3: 

move.b 

dO.mtspeed 


rts 



mtperiods: 

dc.w $358,$328,$2fa,$2d0,$2a6.$280,$25c,$23a,$21 a.$ I fc,$ I eO 
dc.w $ I c5,$ I ac,$ 194,$ 17d,$ 168,$ 153,$ 140,$ 12e,$ I 1 d,$ 10d,$fe 
dc.w $K),$e2,$d6,$ca,$be,$b4,$aa,$a0,$97,$8f,$87 

dc.w $7f,$78,$71.0 


mtspeed: 

dc.b 

6 

mtcounter: 

dc.b 

0 

mtpattpos: 

dc.w 

0 

mtsongpos: 

dc.b 

0 

mtbreak: 

dc.b 

0 

mtdmacon: 

dc.w 

0 

mtsamplestarts: 

blk.l 

$lf,0 

mt voicel: 

blk.w 

13,0 


dc.w 

1 

mt_voice2: 

blk.w 

13,0 


dc.w 

2 

mt_voice3: 

blk.w 

13,0 


dc.w 

4 

mt_voice4: 

blk.w 

13,0 


dc.w 

8 

mtdata: 

blk.b 

59526+[2* 1024],0 
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3. DER BUTTER 


3.1. DIE BUTTER-REGISTER 

Um den Blitter anzusprechen, muß man ihm zuerst einige Parameter 
übergeben. Dazu sind einige Register bestimmt, die die 
Informationen aufnehmen. 

BLTSIZE (Sdff()58) 

Das erste Register ist das Blitter-Size Register, welches dem Blitter 
die Größe des zu kopierenden Bereiches übermittelt. Aber es dient 
nicht nur zum Markieren des Bereiches, sondern auch zum Starten 
des Blitters, daher muß dieses Register als letztes initialisiert 
werden, da dem Blitter sonst noch nötige Informationen fehlen. 

Wie sieht aber das Blitterfenster aus? Das Blitterfenster ist jener 
Speicherbereich, der vom Blitter während der Operation verwendet 
wird. Eingeteilt wird der Speicher, genau wie bei den Bitplanes, in 
Spalten und Zeilen. Eine Spalte entspricht einem Word = zwei Byte. 
Sehen wir uns nun die genauere Biteinteilung des BLTSIZE- 
Registers an: 

Bits: 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 
H9 H8 H7 H6 H5 H4 H3 H2 Hl HO W5 W4 W3 W2 W1 WO 

Die ersten zehn Bits bestimmen die Höhe des Blitterfensters. Die 
Höhe wird in Zeilen angegeben, welche zwischen 0 und 2 ,() (1024) 
liegen kann. Will man 1024 Zeilen anwählen, so sind alle Bits auf 
Null zu setzten. Eine Höhe von Null Zeilen ist daher nicht mehr 
möglich. 

Die restlichen sechs Bits stehen für die Breite, welche ebenfalls eine 
Größe von 1 bis 1024 Pixel haben darf. Die Breite wird in Words 
angegeben; 1 Word hat 16 Bits (16 Pixel) - maximal 64 Words 
ergeben: 64*16=1024. Es gilt hier die gleiche Regelung wie bei der 
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Höhe: Will man 64 Words wählen, so sind diese Bits auf Null zu 
setzten. Eine Breite von Null Words ist wie oben unmöglich. 

Damit man nicht bei jeder Blitteroperation umständlich die 
Bitbelegung studieren muß, gibt es eine einfache Formel, mit der 
man den richtigen Wert für BLTSIZE errechnen kann: 

BLTS1ZE = Höhe*64 + Breite in Words 

Beispiel: Der Blitbereich ist 320 Pixel (320/16 ergibt die Breite in 
Words) breit und 10 Pixel hoch, dann ergibt das: 

BLTSIZE = 10*64 + 20 
BLTSIZE = 660 

BLTAPTH ($dff050) 

Dieses Register enthält zusammen mit dem Register BLTAPTL 
($dffÖ52) die Startadresse der Quelle A. Es existieren insgesamt vier 
Register (A, B, C und D). Davon sind drei (A, B und C) die 
Quellregister und eines (D) das Zielregister. Der Blitter holt die 
Informationen aus den entsprechenden Quellregistern, verknüpft sie 
wahlweise miteinander und schreibt das Ergebnis in das Zielregister 
D. In BLTAPTH liegen die high Bits der Startadresse. Am Ende 
einer Blitteroperation liegt in diesen Registern die Adresse des 
letzten Words plus 2, plus dem entsprechenden Modulo-Wert (die 
Erklärungen zu den Modulo-Werten folgt etwas weiter unten). 

BLTAPTL ($dffD52) 

In diesem Register liegen die low Bits der Startadresse von 
Quellregister A. Da diese Register hintereinander liegen, ist es nicht 
nötig beide getrennt zu beschreiben, sondern man kann dies mit 
einem einzigen Befehl erledigen: 

move.l #pic,$dff050 
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BLTBPTH ($dffl04c) 

BLTBPTL ($dff04e) 

BLTCPTH (SdffT)48) 

BLTCPTL ($dff04a) 

BLTBPTH ($dffl)54) 

BLTBPTL ($dffl)56) 

Die oben angeführten Register sind genauso zu behandeln wie 
BLTAPTH und BLTAPTL. 

BLTAMOB ($dff064) 

In diesem Register befindet sich der Modulo-Wert für die Quelle A. 
Da der Blitter, genau wie die Playfields, auch mit rechteckigen 
Speicherbereichen arbeitet, müssen wir ihm einen Modulowert 
zuteilen. 

Doch wie arbeitet man mit einem Modulo Wert? Ganz einfach, 
durch die rechteckige Speichereinteilung ist es möglich, innerhalb 
eines größeren Bereiches einen kleineren zu definieren, der sowohl 
eigene Breite als auch eigene Höhe besitzt. Sehen wir uns das Ganze 
anhand eines Beispiels an: 


320 



160 


Blitterfenster-- 


100 


-Playfield 


200 


Nehmen w ir an, unser Playfield besitzt eine Größe von 320 mal 200 
Punkten. In dieses wollen wir einen kleineren Ausschnitt mit der 
Größe von 160 mal 100 Punkten hineinkopieren. Der Blitter kopiert 
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dieses kleinere Fenster zeilenweise in den Zielbereich. Damit er aber 
jede Zeile richtig untereinandersetzt, gibt ihm der Modulowert an, 
wieviel er nach jeder kopierten Zeile hinzuzählen muß, damit er die 
nächste Zeile wieder an die richtige Stelle kopiert. Der Modulowert 
ist demnach nichts anderes, als die Differenz von Ziel- und 
Bl itterfenster. Da der Modulowert in Bytes angegeben wird, müssen 
wir das Ergebnis noch durch 8 dividieren. Die korrekte Formel zur 
Modulobereclmung lautet daher: 

(ZielfensterX - BlitterfensterX)/8 = Modulo 

Für unser obiges Beispiel werden folgende Zahlen eingesetzt: (320 - 
160)/8 = Modulo 
20 = Modulo 

BLTBMOD ($dff062) 

BLTCMOD ($dff060) 

BLTDMOD ($dflt)66) 

Diese Modulo-Werte kann man selbstverständlich für alle Quellen 
und das Zielregister seperat einstellen, daher existieren auch vier 
getrennte Register. 

BLTAFWM ($dftt)44) 

Da man mit dem Blitter, wie wir schon weiter oben erfahren haben, 
nur wortweise kopieren kann, können die kopierten Daten nur ein 
Vielfaches von 16 Punkten breit sein. Wenn wir nun eine beliebige 
Breite verschieben möchten, dann müssen wir die an den Rändern 
"überhängenden" Pixel weglassen (in der Fachsprache auch 
ausmaskieren genannt). Mit dem Register BLTAFWM wird das 
erste Word ausmaskiert. Die Maskierung funktioniert ziemlich 
einfach: Jedes auf 1 gesetzte Bit wird beim Kopiervorgang 
übernommen. Alle nicht gesetzten Bits werden gelöscht. Ein 
Beispiel verschafft Klarheit: 
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Nehmen wir an, unser Objekt besteht aus drei Words, wobei sowohl 
das erste als auch das letzte nur zur Hälfte übernommen wird, das 
mittlere hingegen ganz kopiert werden soll. 

Vor der Operation: 


Word 1 


Word 

2 


Word 3 


0000 

11 1001 1 

10000 

00001 

1 1001 1 

10000 

0000 

111001110000 

0001 

1111111 

1 1000 

0001 1 

111111 

11000 

0001 

11111111 

1000 

001 1 

1 1 1001 1 

1 1 100 

001 1 1 

1 1001 1 

11 100 

001 1 

11100111 

1 100 

01 1 1 

1100001 

1 1 1 10 

01 1 1 1 

100001 

1 1 1 10 

01 1 1 

11000011 

1 1 10 

1111 

1000000 

iiiii 

IIIII 

000000 

IIIII 

INI 

10000001 

INI 

01 1 1 

1100001 

1 1 1 10 

01 1 1 1 

100001 

1 1 1 10 

01 1 1 

11000011 

1 1 10 

001 1 

1 1 1001 1 

1 1 100 

001 1 1 

1 1001 1 

1 1 100 

001 1 

11100111 

1 100 

0001 

1111111 

1 1000 

00011 

111111 

1 1000 

0001 

11111111 

1000 

0000 

1 1 1001 1 

10000 

00001 

1 1001 1 

10000 

0000 

1 11001110000 


Nach der Operation durch Verwendung folgender Masks: 

BLTAFWM: BLTALWM: 

00000000111II1II IIIIII1100000000 


OOOOOOOOO11 

10000 

0000 

1 1 1001 1 

10000 

00001 

11000000000 

00000000111 

11000 

0001 

11II111 

1 1000 

0001 1 

11100000000 

00000000011 

1 1 100 

001 1 

1 1 10011 

11100 

001 1 1 

11000000000 

00000000001 

1 1 1 10 

01 1 1 

1 100001 

1 1 1 10 

01 1 1 1 

10000000000 

00000000000 

IIIII 

1111 

1000000 

IIIII 

IIIII 

00000000000 

00000000001 

1 1 1 10 

01 1 1 

1100001 

1 1 1 10 

01 1 1 1 

10000000000 

00000000011 

1 1 100 

0011 

1 1 1001 1 

1 1 100 

001 1 1 

11000000000 

000000001 1 1 

1 1000 

0001 

1111111 

1 1000 

0001 1 

11100000000 

00000000011 

10000 

0000 

1 1 1001 1 

10000 

00001 

11000000000 
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BLTALWM ($dffl)46) 


Dieses Register bestimmt die Maske des letzten Words. Sowohl 
BLTAFWM als auch BLTALWM sollten im Line- und im Fill- 
Modus auf eins gesetzt werden. 

BLTCONO ($dffö40) 

Wie wir eben erfahren haben, kann man mit dem Blitter auch 
Grafiken kopieren, die nicht unbedingt an einer Wortgrenze (also 
einem Vielfachen von 16 Punkten) enden. Aber als Zielbereich 
können wir wiederum nur eine an einer Wortgrenze liegende 
Adresse wählen. Das bedeutet, daß wir nur alle 16 Pixel etwas 
hineinblitten können. Was ist aber nun zu tun, wenn man auch 
dazwischen Daten ablegen möchte? 

Auch dafür stellt uns der Blitter eine Funktion zur Verfügung. Mit 
den Bits 12-15 des BLTCONO Registers wird bestimmt, um wieviele 
Bits die Daten verschoben werden sollen. Die hinausgeschobenen 
Bits werden beim nächsten Word wieder hineingeshiftet. Sehen wir 
uns ein Beispiel an: 

Vor dem Verschieben: 00010101 1 1000000 

Nach dem Verschieben: xxxxOOOIOIOI 1 100 

In unserem Beispiel wurde das Wort um vier Bits verschoben. Die 
"xxxx” repräsentieren jene Bits, die im vorhergehenden Wort stehen. 
Eine Verschiebung gibt es nur für Quelle A und B. Die Bits zur 
Steuerung von Quelle B befinden sich im Register BLTCON I. 

Wie schon oben erwähnt, bietet uns der Blitter die Möglichkeit, die 
drei Quellregister logisch miteinander zu verknüpfen. Das Ergebnis 
dieser Verknüpfung wird in dem Zielregister D abgelegt. Uns stehen 
acht unterschiedliche Bit-Tripel zur Verfügung (2-^ = 8). Diese sind 
in den sogenannten LFx-Bits (Bits 0-7) enthalten. Diese Bit-Tripel 


36 



nennt man Miniterms. Mittels dieser Miniterms kann der Anwender 
bestimmen, wie das Krgebnis in I) gebildet werden soll (Siehe dazu 
Kapitel 3.3. Die Mini-Terms). 

Sehen wir uns die Bit-Belegung des Registers in gesamter Form an: 


Bit 

Name 

Funktion 

15 

ASH3 

Diese vier Bits beinhalten den Wert der Ver- 
schiebung von Quelle A. Sind alle 4 Bits auf Null 
gesetzt, so findet keine Verschiebung statt. 

14 

ASII2 


13 

ASII1 


12 

ASHO 


1 1 

IJSEA 

DMA-Kanal für Quelle A einschalten. 

10 

USEB 

DMA-Kanal tur Quelle Beinschalten. 

9 

US EC 

DMA-Kanal für Quelle C einschalten. 

8 

IJSED 

DMA-Kanal für Ziel D einschalten. 

7 

I.F7 

Miniterm ABC' (=111) 

6 

LF6 

Miniterm ABc ( 1 10) 

5 

LF5 

Miniterm AbC' ( = 101) 

4 

LF4 

Miniterm Abc (=100) 

*> 

LF3 

Miniterm aBC (=01 1) 


LF2 

Miniterm aBc (=010) 

1 

LFI 

Miniterm abC (=001) 

0 

LFO 

Miniterm abc (=000) 
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BLTCON1 ($dffl)42) 


Bit Name Funktion 


15 BSH3 


14 BSH2 
13 BSH1 
12 BSHO 
11-5 

4 EFE 


3 IFE 
2 FCI 
1 DESC 


0 LINE 


Diese vier Bits beinhalten den Wert der Ver¬ 
schiebung von Quelle B. Sind alle 4 Bits auf Null 
gesetzt, so findet keine Verschiebung statt. 


unbenutzt 

Exclusive Fill Enable 

Die Bits 2, 3 und 4 sind nur in Zusammenhang mit 
der Funktion "Flächen füllen" interessant. Wollen 
Sie aber normal arbeiten, so sind beide Bits auf Null 
zu setzen. (Flächen füllen siehe Kapitel 5.3.) 
Inclusive Fill Enable 
Fill Carry In 

Wenn dieses Bit eins ist, dann ist der descending 
Modus aktiviert. Wenn nicht, arbeitet der Blitter 
normal im ascending Modus (Erklärung unten). 
Wird dieses Bit auf eins gesetzt, so wird der Line- 
Modus aktiviert und der Blitter kann zum Ziehen 
von Linien verwendet werden (siehe auch Kapitel 
5.3. Line-Befehl). 


ASCENDING-, DESCENDING-MODUS 

Was bedeuten nun diese beiden Modi? Normalerweise arbeitet der 
Blitter aufsteigend (ascending), daß heißt, er beginnt mit dem 
Kopieren der Daten bei der Anfangsadresse und erhöht diese 
solange, bis er bei der Endadresse angelangt ist. Will man aber einen 
Speicherbereich kopieren, bei dem sich Quelle und Ziel teilweise 
überlappen, so führt dies nicht zum gewünschten Ergebnis. Sehen 
wir uns dazu die Grafik an: 
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Ausgangssituation 



I Quelle Dil Ziel ~ 

I Quelle E ir Ziel B I 



Quelle A 
^ueH^B 
Quelle C 
Quelle D 
Quelle E 


Ergebnis 



Im obigen Beispiel wird versucht, eine Graphik in einen Bereich zu 
kopieren, der sich aber mit den Quell-Daten überlappt. Daher wird 
bei verwendetem Ascending-Modus anstatt der kompletten 
Quelldaten ein Teil schon überschrieben, bevor er kopiert werden 
kann. Daher steht am Ende der Zieldaten der Teil, der zuerst kopiert 
wurde. 

Deshalb kann man den Blitter auch umgekehrt arbeiten lassen, 
nämlich absteigend (descending). Er beginnt jetzt bei der Endadresse 
und subtrahiert solange bis er bei der Startadresse angelangt ist. 
Dadurch wird das Ergebnis, wie in der Zeichnung, korrekt 
übertragen. Damit der Blitter auch korrekt arbeitet, muß man ihm 
natürlich bei eingeschaltetem decending-Modus mit der Endadresse 
zu kopieren beginnen lassen, da er nun absteigend arbeitet. 

BLTADAT ($dffl)74) 

BLTBDAT ($dffl)72) 

BLTCDAT ($dffD7ü) 

BLTDDAT (SdffOOO) 

Die Daten, die kopiert werden sollen, werden vom Blitter mit Hilfe 
von vier DMA-Kanälen aus dem Speicher geholt, bearbeitet 
(verknüpft) und anschließend wieder zurückgeschrieben. Nach der 
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Verarbeitung steht das Ergebnis in BLTDDAT und wird danach ins 
Rain (Chip-Ram) geschrieben. Man kann jeden dieser Kanäle mit 
den USEx-Bits des Registers BLTCONO einzeln ein- oder aus¬ 
schalten. Will man einen Kanal sperren, so ist das entsprechende 
IJSEx-ßit auf Null zu setzen, sowie bei der Auswahl der Miniterms 
daraufzu achten, daß diese keinen Einfluß auf diesen Kanal nehmen. 

DMACON ($dff096) 

Die folgenden Bits aus dem Register DMACON beeinflussen 
ebenfalls den Blitter: 


Bit 

Name 

Funktion 

14 

BBUSY 

Blitter Status - testet ob der Blitter gerade 
arbeitet oder nicht (nur lesen). 

13 

BZERO 

Blitter zero Status - Das Ergebnis jeder 
Blitteroperation war 0 (nur lesen). 

10 

BLTPRI 

Blitter priority - Der Blitter hat Vorrang 
gegenüber dem Prozessor. 

6 

BLTEN 

Blitter DMA enable - Blitter DMA 
einschalten. 


3.2. DIE MINI-TERMS 

Der Blitter besitzt, wie wir bereits wissen, drei Quellen, aber nur ein 
Ziel. Diese Tatsache führt zu folgenden Fragen: 

1) Warum benötigt man drei Quellen, wenn der Blitter 
immer nur ein Ziel gleichzeitig ansprechen kann? 

2) Wie kann man den Einfluß der drei verschiedenen 
Quellen auf das Ziel bestimmen? 
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Die erste Frage läßt sich wohl am besten anhand eines Beispieles 
erklären: 


Quellfenster A 

010101010101010 1 
0101010101010101 
0101010101010101 
0101010101010101 
0101010101010101 
0101010101010101 
01 0 1 0 1 0 1 0 1 010 1 0 1 
0101010101010101 


Quell Fenster B 

0000000110000000 
000000IIII000000 
00000IIIIII00000 
00001IIIIII10000 
000111 I I 11 11 1000 
00IIIIIIIIIIII00 
01IIIIIIIIIIII10 
1111111111111111 


gewünschtes Ergebnis 

0000000100000000 
0000000101000000 
00000I0I0I000000 
0000010101010000 
0001010101010000 
0001010101010100 
0101010101010100 
0101010101010101 


Wir haben zwei Quellen (A und B). wobei als Ergebnis nur diejeni¬ 
gen Bits im Zielregister gesetzt werden sollen, die in beiden Quell¬ 
registern auf I gesetzt sind. Um aus den beiden Quellen A und B das 
abgebildete Ergebnis zu bekommen, ist folgende Miniterni- 
kombination notwendig: I 1000000 

Die Beantwortung der Frage, warum ausgerechnet diese 
Kombination nötig ist. geht einher mit der Beantwortung der zweiten 
oben gestellten Frage: 

Ähnlich den logischen Verknüpfungen (AND, OR, EQR,...) funktio¬ 
nieren auch die Miniterms. Der Vorteil ist jedoch, daß die Kombina¬ 
tionen, die I ergeben sollen, frei wählbar sind. Die Minitermkom¬ 
bination 00111111 würde zum Beispiel das oben gezeigte Ergebnis 
invertiert darstellen. 

Es gilt, für alle möglichen Kombinationen der drei Quellen auszu¬ 
wählen. ob das Ergebnis I oder 0 sein soll. Wird das jeweilige Bit 
gesetzt, so ist das Ergebnis immer eine 1. Hier nun eine Tabelle, die 
die zu jedem Bit gehörige Eingangskombination darstellt. (Zur 
Verdeutlichung wurden die Quellen nochmals dargestellt. Ein 
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Großbuchstabe bedeutet, das das jeweilige Bit der 
Eingangskombination I ist, ein Kleinbuchstabe bedeutet 0): 


ABC Bitbezeichnung Nummer 

Eingangskomb.: 1 1 1 ABC LF7 7 


1 10 

ABc 

LF6 

6 

101 

AbC 

LF5 

5 

100 

Abc 

LF4 

4 

01 1 

aBC 

LF3 

3 

010 

aBc 

LF2 

2 

001 

abC 

LF1 

1 

000 abc 

LF0 

0 

Für unser oben angeführtes Beispiel wählen wir jene 
Bitkombinationen aus, die sowohl bei A als auch bei B ein wahres 

Ergebnis liefert: 




ABC 

==> 1 1 1 ABC 

Bitbezeichnung 

LF7 

Nummer 

7 

===> 110 

ABc 

LF6 

6 

101 

AbC 

LF5 

5 

100 

Abc 

LF4 

4 

01 1 

aBC 

LF3 

3 

010 

aBc 

LF2 

2 

001 

abC 

LFI 

1 

000 

abc 

LF0 

0 

Nur die Bits 6 und 7 

liefern ein korrektes Ergebnis, daher lautet die 


^richtige Einstellung der Miniterms: 

move.w #%M000000,$dffD40 

Abschließend noch einige nützliche Beispiele für Miniterm¬ 
kombinationen: 
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I) 


Kombination: I 1110000 
Eingeschaltete Quellen: A 

Ergebnis: Das Quellfenster A wird unverändert im 
Zielfenster D abgelegt. 


2) Kombination: 00001 I I I 
Eingeschaltete Quellen: A 

Ergebnis: Das Quellfenster A wird invertiert im 
Zielfenster D abgelegt. 

3) Kombination: 11 1 I I 100 
Eingeschaltete Quellen: A,B 

Ergebnis: Quellfenster A w ird im Zielfenster D abgelegt, 
ohne den Hintergrund zu zerstören. Wichtig: Quellfenster 
B muß gleich dem Zielfenster sein, um ein korrektes 
Ergebnis zu ermöglichen. 
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3.3. KOPIEREN 


3.3.1. SPEICHER LÖSCHEN 

Da der Blitter in der Lage ist, mit großer Geschwindigkeit Daten im 
Speicher umherzuschieben, können wir ihn wunderbar zum 
Speicherlöschen einsetzen. Dieses kurze Programm zeigt gut, 
welche Schritte nötig sind, um den Blitter zu initialisieren, und hilft 
somit, die Arbeitsweise des Blitters zu demonstrieren. 

Sehen wir uns ein Beispielprogramm an, das ein Feld in der Größe 
320 mal 256 Punkten (320/8*256=10240 Byte) löscht. Diesen 
Speicherbereich definieren wir am Ende unseres Programms mit der 
Anweisung 

pic: blk.b I0240,$ff 

$ff bedeutet, daß der reservierte Speicher beim Assemblieren mit 
dem Hex-Wert $ ff gefüllt wird. Das machen wir deshalb, damit wir 
nach dem Start kontrollieren können, ob unser Programm richtig 
gearbeitet hat. Als nächstes fragen wir den Blitter, ob er gerade 

beschäftigt ist, indem wir Bit 14 des Registers $dff002 auslesen: 

clearpic: btst #14,$dff002 

bne.s clearpic 

Ist er gerade beim Kopieren von Daten, so verzweigt das Programm 
in der Schleife und wartet, bis er seine Aufgabe beendet hat. 
Nächster Schritt ist das Initialisieren des Zielkanals. 

move.l #pic,$dffö54 

Als nächstes werden die Moduli, sowie das Register BLTCON1 
initialisiert. In diesem Fall werden sie mit 0 beschrieben. 

clr $dff066 

clr $dflT)42 
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Jetzt müssen wir noch den Zielkanal einschalten: 


move #%()<)()()()()<) I ()0000000,$dffl)40 

Abschließend wird die Ciröße des Blitterfensters festgelegt und der 
ßlitter somit gestartet. 

move #[256*64]+[32Q/I6],$dtTO58 

Nun können wir das Programm starten. Zur Überprüfung sehen wir 
uns den Speicher an mit (nur SRKA-Kommando!) 

q.l pic 

Rs sollten ab dieser Adresse nur noch Nullen anstatt des Strings $ff 
stehen. Im Überlick nochmals das gesamte Listing: 


: Speicher löschen 

; löscht eine 320x256 großes Fenster 

clearpie: bist # 14,$dfT002 

bne.s clearpie 


move.l #pic,$dffl)54 

clr $dff()66 

clr $dfl'042 

move #%0()()00()0 100000000,$dffÖ40 

move # [256*64]+[ 320/16], $ d ffö 5 8 


rts 


pic: 


blk.b 10240,$ff 


Wieso wird aber der Speicher gelöscht, obwohl wir gar keine 
Quellen eingeschaltet haben? Nun, man könnte genausogut eine 


45 




Quelle einschalten und auf einen leeren Speicherbereich zeigen 
lassen, von wo die Daten geholt werden und anschließend in den 
Zielbereich übertragen werden. Es gibt aber eine, wie oben 
demonstriert, viel einfachere und wesentlich schnellere Methode. 
Durch das Abschalten jeglicher Minitermkombinationen 

move #%0000000100000000,$dftD40 

ist das vom Blitter ausgeführte Ergebnis der Verknüpfung in jedem 
Fall 0. Daher erübrigt sich das Einschalten der Quellen. 


3.3.2. EINFACHES KOPIEREN 

Als nächstes wollen wir eine Routine schreiben, die ein 32 farbiges 
Bob in einen Bildschirm mit ebenfalls fünf Bitplanes hineinkopiert. 
Wir werden jede Plane mit einem Blitvorgang kopieren und daher 
den Blitter fünfmal starten. Diese Methode benötigt viel Zeit, ist 
aber für den Anfang leichter zu verstehen. Wie man dieses 
Programm noch kürzer und schneller gestalten kann, wird im Kapitel 
6 M Tips & Tricks zum Blitter" verraten. Um nun zu kopieren, lesen 
wir den Anfang der ersten Plane in al ein und addieren nach jedem 
Blit $2800 hinzu, um an den Beginn der nächsten Plane zu gelangen. 
Der Wert aus al wird in das Zielregister übertragen: 

label: move.l al,$dffö54 

BLTAMOD und BLTCONI werden mit 0 initialisiert: 

blitten: clr.w $DFF042 

clr.w SDFF064 

Da wir weder das erste noch das letzte Word ausmaskieren 
(weglassen) wollen, müssen wir sämtliche Bits auf eins setzen. 

m o ve. w #$ffff,$dff044 
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move.w # $ f‘fff, $d f0)4 6 


Weiterhin werden der Modulo-Wert für die Zielquelle angegeben, 
sowie der DMA-Kanal für Quelle A und Ziel D eingeschaltet. 
Außerdem werden alle Miniterms gewählt, welche bei A eine wahre 
Aussage liefern. Dies sind die Bits LF4 - LF7. 

move.w #%()()()() 1001 I 1 I 10000,$DFF040 
move.w #$24,$DFF066 

Abschließend berechnen wir noch die Größe des Blitterfensters und 
starten denselben. Unser Bob ist 32 mal 32 Punkte groß, daher 
errechnet sich die Fenstergröße wie folgt aus der bekannten Formel: 

BLTSIZE = Höhe*64 + Breite in Words 
BLTSIZE = 32*64 + 2 
BLTSIZE = 2050 

Sehen wir uns nun das fertige Programm an, das einen Screen mit 5 
Bitplanes erstellt und ein 32-farbiges Bob hineinkopiert. Assem- 
blieren Sie das Programm und laden Sie das fertige Bob von der 
Programmdiskette mit dem "ri"-Befehl (Seka-Assembler) nach. 

Hier nun das fertige Beispielprogramm: 

; Einfaches Kopieren mit dem Blitter 

;Nachzuladendes Bild: df():raw/B()B32x32_5.raw auf blitpic 


s: 

bsr.s 

opening 


bsr.L 

initcolors 


bsr.L 

Mitten 

loop: 

move.l 

$dfn)04.d0 


and.l 

#$fffl)0,d0 


cmp.l 

#$()()0()30()0.d() 
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bne.s 

btst 

bne.s 


end: move.w 

e: rts 

opening: move.w 
move.l 
move.l 
lea 

moveq.l 

initplanes: 

svvap 

move 

add.l 

swap 

move 

add.l 

add.l 

dbf 

move.l 

lea 

moveq.l 

initsprites: 

svvap 

move 

add.l 

swap 

move 

add.l 

dbf 

rts 


loop 

#6,$bfe001 
loop 

#$c000,$dffö9a 


#$4000,$dffö9a 
#copperl,$dffD84 
#pic,d() 
pl l+2(pc),a0 
#4.d I 

dO 

d(),(aO) 

#4,a0 

dO 

d(),(aO) 

#4,a0 

size,dO 

dl jnitplanes 

#sprite,dO 

spH-2(pc),aO 

#7.dl 

dü 

dO,(aO) 

#4,a0 

dü 

dO,(aO) 

#4,a0 

dl,initsprites 
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initcolors: 


lea 

lea 

move.w 

move.w 

copycolors: 

move.w 

move.w 

add.w 

dbf 

rts 

blitten: clr.w 

clr.w 

move.w 

move.w 

move.w 

move.w 

move.l 

lea 

moveq.l 

hier: move.l 

add.l 
move.w 

btest2: btst 

bne.s 

dbf 

rts 

copperl: 

dc.w 


blitpic+640,a0 
colors(pc),al 
#31,d0 
#$01 80,d I 

d I ,(a I)+ 
(a0)+,(a I)+ 
#2,dl 

dO,copycolors 


SDFF042 

SDFF064 

#$ffff,$dffD44 

#$ffff,$dffD46 

#%()()()() 1001 I I I 10000,$DFF040 

#$24,$DFF066 

#blitpic,$DFF050 

pic+2016,al 

#4,d4 

al,$dlT054 
# 10240,a 
#2050,$DFF058 

#6,$DFF002 

btest2 

d4,hier 


$008e,$2071 
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dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

pH: dc.w 

dc.w 

pl2: dc.w 

dc.w 

pl3: dc.w 

dc.w 

pl4: dc.w 

dc.w 

pl5: dc.w 

dc.w 

spl: dc.w 

dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 

colors: blk.w 
dc.w 


$0090,$20d4 
$0092,$0038 
$0094,$00d0 
$0102,$0000 
$0104,$0000 
$0108,$0000 
$010a,$0000 
$0100,$5200 
$00e0,$0000 
$00e2,$0000 
$00e4,$0000 
$00e6,$0000 
$ 00 c 8,$0000 
$00ea,$0000 
$00ec,$0000 
$00ee,$0000 
$00fD,$0000 
$00f2,$0000 
$0120,$0000 
$ 0122,$0000 
$0124,$0000 
$0126,$0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$012e,$0000 
$0130,$0000 
$0132,$0000 
$0134,$0000 
$0136,$0000 
$0138,$0000 
$013a,$0000 
$013c,$0000 
$013e,$0000 
64,0 

$ffff,$fffe 


50 



sprite: 

dc.l 

0 

size: 

dc.l 

10240 

blitpic: 

blk.b 

704.0 

pic: 

blk.b 

51200.0 


3.3.3. KOPIEREN MIT MASKE 

Als nächstes wollen wir ein 32 Blitterobjekt, auch Bob genannt, 
welches 5 Bitplanes besitzt (das entspricht 32 Farben) in ein eben¬ 
falls 32-farbiges Hintergrundbild hineinkopieren. Dies soll derart ge¬ 
schehen, daß das hinter dem Bob liegende Bild nicht zerstört wird. 
Wo liegt hierbei das Problem? Nun, normalerweise kopiert der 
Blitter das gesamte Objekt, ohne darauf zu achten, was auf der 
Zielplane liegt (wir haben das in den vorangegangenen Beispiel¬ 
programmen so praktiziert). Kommt es nun vor, daß dieses Objekt 
einige Stellen enthält, an denen die Hintergrundfarbe erscheint, dann 
sollte dort das Hintergrundbild durchleuchten. Bei normaler Kopier¬ 
weise sind diese Stellen jedoch schwarz. Sehen wir uns dazu die 
Abbildung auf der nächsten Seite an: 

Das Problem ist folgendes: Damit der Hintergrund an den Stellen 
durch das Bob durchscheint, an denen auf allen Planes des Bobs die 
Bits gelöscht sind, muß man ihm mitteilen, wo sich diese Bits 
befinden. 

Der Bl itter kann natürlich nicht wissen, welche Bits wirklich auf 
allen drei Planes gelöscht sind. Es kann ja, wie in unserer Abbildung 
der Fall sein, daß ein Bit auf der ersten Plane zwar 0 ist, aber dafür 
auf der zweiten Plane gesetzt wurde, damit eine andere Farbe 
entsteht. 
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alle Pixel gesetzt 
<1,2,3 Plane) 


Abhilfe schafft die sogenannte Maske, die dem RIitter genau 
mitteilt, welche Bits auf allen Planes benötigt werden. Das bedeutet, 
man legt dem Blitter mit der Maske eine Vorlage vor, die das Aus¬ 
sehen des Bobs auf allen verwendeten Bitplanes wiederspiegelt. Mit 
anderen Worten gesagt, muß eine Maske auf jeder Bitplane das 
gleiche Bitmuster beinhalten, wie das Objekt, das kopiert werden 
soll. Aus diesem Grund ist die Maske auch einfarbig. 

Mit einem Malprogramm wie DPaint erstellt man eine Maske am 
besten, indem man das Bob mit der letzten Farbe (bei 5 Planes mit 
Farbe Nummer 31) übermalt. Wir erinnern uns, wenn man mit der 
letzten verfügbaren Farbe malt, werden logischerweise die Bits auf 
allen Planes gesetzt, um den Farbton zu erhalten. Die Maske wird 
anschließend konvertiert und zusätzlich zu ufiserem Bob während 
des Blitvorgangs mitverknüpft. 

move.w #%00()()l 1111 IOOOOIO,BLTCONO(A6) 
move.l #msk,BLTBPTH(a6) 
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Dazu müssen wir mit der Minitermkombination die richtige Ver¬ 
knüpfung anwählen, sowie die zweite Quelle B einschalten, in der 
die Maske eingelesen wird. 


Kopieren mit Maske 

Nachzuladende Files: 
"raw/Bob32x32_5.raw" auf "bob" 
"raw/Bob32x32 5.msk" auf "msk" 
"raw/Hintergrund.raw" auf ”pic M 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$4X 

bltbpth 

= 

$4c 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$5X 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 

s: 

bsr.s 

opening 


bsr.L 

initcolors 
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loop: 


end: 

e: 

opening: 


move.l 

#$DFF000,a6 

bsr.L 

Blit 

btst 

#6,$bfe001 

bne.s 

loop 


move.w 

#$c000,$dffl09a 

moveq.l 

#0,d0 

rts 



move.w 

#$4000,$dffö9a 

move.l 

#copperl,$dffD84 

move.l 

#pic.dO 

move 

dO.pl 1+6 

swap 

dO 

move 

d0.pl 1+2 

swap 

dO 

add.l 

size(pc),d0 

move 

d0.pl2+6 

swap 

dO 

move 

d0.pl2+2 

swap 

dO 

add.l 

size( pc),d0 

move 

d0,pl3+6 

swap 

dO 

move 

d0,pl3+2 

swap 

dO 

add.l 

size(pc),dO 

move 

d0.pl4+6 

swap 

dO 

move 

d0,pl4+2 

swap 

dO 

add.l 

size(pc),dO 

move 

d0.pl5+6 

swap 

dO 


; Routine anspringen 


54 



copperl 


pH: 


move 

d0,pl5+2 

swap 

dO 

move.l 

#sprite,dO 

lea 

spl+2(pc),a0 

moveq.l 

#7,dl 

swap 

dO 

move 

dO.(aO) 

add.l 

#4,a0 

swap 

dO 

move 

dO,(aO) 

add.l 

#4,a0 

dbf 

rts 

dl.initsprites 

lea 

color(pc),aO 

lea 

pic+40000,a 1 

moveq 

#3 1 ,d0 

move 

n 180,d 1 

move 

d 1 ,(a0)+ 

move 

(al )+,(a())+ 

addq 

#2,dl 

dbf 

dO.copycolors 

rts 

dc.w 

$oo9o.$refo 

dc.w 

$0092,$003 8 

dc.w 

$0094,$00d0 

dc.w 

$0102,$0000 

dc.w 

$0104,$0024 

dc.w 

$0108.$0000 

dc.w 

$010a.$0000 

dc.w 

$0100,$5300 

dc.w 

$00e0,$0000 
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dc.w 

$00e2,$0000 

P I2: 

dc.w 

$00e4,$0000 


dc.w 

$00e6.$0000 

pl3: 

dc.w 

$00e8,$0000 


dc.w 

$()0ea,$0()00 

pl4: 

dc.w 

$00ec,$0000 


dc.w 

$()0ee,$0000 

P I5: 

dc.w 

$00t10,$0000 


dc.w 

$00f2,$0000 

s P l : 

dc.w 

$0120,$0000 


dc.w 

$0I22.$0000 


dc.w 

$0I24,$0000 


dc.w 

$0126,$0000 


dc.w 

$0128,$0000 


dc.w 

$012a,$0000 


dc.w 

$012c.$0000 


dc.w 

$0l2e,$0000 


dc.w 

$0130,$0000 


dc.w 

$0132,$0000 


dc.w 

$0134,$0000 


dc.w 

$0I36,$0000 


dc.w 

$013 8.$0000 


dc.w 

$0l3a,$0000 


dc.w 

$013c,$0000 


dc.w 

$0l3e,$0000 

color: 

blk.w 

64.0 


dc.w 

$ffff,$fffe 

size: 

dc.l 

8000 


.******************************************* 

Blit: 

niove.l #0,dl 
move.l #0,d2 
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NoEnd: 


move.w #%()()()() I 11 I I 1000010,BLTCON0(A6) 
clr.w BLTCON I(a6) 

clr.w BLTAMOD(a6) 

clr.w BLTBMOD(a6) 

move.w #36,BLTCMOD(a6) 
move.w #36,Bl. I DMOD(a6) 

move.w #$FFFF,BLTAFWM(a6) 
move.w #$FFFF,BLTALWM(a6) 

move.l #bob,d0 

add.l dl.dO 

move.l dO.BLTAPTH(a6) ;; Adresse d. Bobs 
move.l #msk.BETBPTH(a6) 

move.l #pic+2576,d0 "Adresse d. Bitplane 

Position 

add.l d2.d() 

move.l dO.BL IDPFH(a6) 

move.l dO.BI.TCP FH(a6) 


move.w #2050,BLTSIZE(a6) 


Wait: btst 

bne.s 


#6, DM ACON R( a6) 
Wait 


add.l #l28.dl 

add.l #8000,d2 

cmp.l #40000.d2 

bne.s NoEnd 

rts 


. .^c^:)f:^:9|c^c9|e9|c9fc9(e%^(^c^:4:9|c9|c9(c^c9|(3f:^e^c^e>(c3(c4:3f:}ic^c)(c^c^e3(:>|e^e^e>|c)|c3|e^(^c^e . 

sprite: de. I 0 
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bob: 

hlk.b 

704.0 

msk: 

blk.b 

640,0 

pic: 

blk.b 

40064,0 


3.3.4. ANIMATIONEN 

Abschließend zum Kapitel "Kopieren" wollen wir eine einfache 
Animation mit Hilfe des Blitters laufen lassen. 

Zur Aufgabenstellung: Ein 32 mal 32 Punkte großes Objekt mit 
einer Bitplane (2 Farben) wird auf dem Bildschirm dargestellt. Von 
diesem Objekt existieren vier verschiedene Animationsphasen. Das 
bedeutet, daß die Grafik so gezeichnet wird, daß sich jedes der vier 
Bildchen geringfügig vom Vorgänger unterscheidet. Legt man diese 
Bilder nun rasch übereinander, nimmt das Auge eine gleichmäßige 
Bewegung wahr. 

Dieses Objekt kann beispielsweise eine Figur sein, deren Füße sich 
bewegen. Werden die Bilder übereinander gelegt, so glaubt man, die 
Figur würde gehen. In unserem Beispiel handelt es sich um eine 
Diskette, die sich um ihre Achse dreht. Die mit einem Malprogramm 
gezeichneten Animationsphasen müssen, wie in der Abbildung zu 
sehen ist, untereinander abgelegt sein. 
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Anschließend muß man diese Grafik, um sie in unserem Listing zu 
verwenden, mit einem geeigneten Konvertierprogramm vom IFF- in 
das RAW-Format umwandeln. In der Unterroutine "Animation" 
werden die Phasen gewechselt und auf den Bildschirm geblittet. 
Animation: 


move.w #%()0()0l()0l 1 I I IOOÜO,BLTCONO(A6) 

Zuerst wird das BLTCONO-Register mit der Minitermkombination 
%111 10000, die für Kopieren von A nach D steht, initialisiert. 
Ebenfalls werden Quelle A und Ziel D eingeschaltet. 

clr.w BLTCON I(a6) 

clr.w BLTAMOD(a6) 

BLTCON I und BLTAMOD werden auf 0 gesetzt. 

move.w #36,BLTDMOD(a6) 

BLTDMOD hingegen muß auf 36 gesetzt werden, damit der Blitter 
das 32 Pixel breite Objekt richtig kopiert. 

move.w #$FFFF,BLTAFWM(a6) 
move.w #$FFFF,BLTALWM(a6) 

Das erste und letzte Word werden ausmaskiert. 


move.l 

#bob.d() 

move.l 

#circletab,aO 

add.l 

Phase.aO 

add.l 

(aO).dO 

move.l 

dO.Bl.TAP TH(a6) 

move.l 

#pic.BI,TDPTH(a6) 


Die obigen Zeilen tragen die Bitplane, auf die kopiert werden soll 
ein, sowie diejenige Animationsphase, die als nächstes an der Reihe 
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ist. Welche Phasen in welcher Reihenfolge geblittet werden, ist im 
"circletab" festgelegt: 


circletab: 

dc.l 000,000,000,000,000,000 

dc.l 128,128,128,128,128,128 

dc.l 256,256,256,256,256,256 

dc.l 384,384,384,384,384,384 

dc.l 256,256,256,256,256,256 

dc.l 128.128,128,128,128,128 

Jede Zahl, die in dieser Tabelle abgelegt ist, wird zur Adresse, an der 
die vier Animationsphasen liegen, hinzuaddiert. Da eine Phase 128 
Byte (32/8*32=128) lang ist, liegt die erste bei 0, die zweite bei 128, 
die dritte bei 256, u.s.w. 

move.w #2050,BLTSIZE(a6) 

Als letztes wird die aktuelle Phase geblittet, indem der Blitvorgang 
durch Beschreiben des BLTSIZE-Registers gestartet wird. Die 
BLTSIZE errechnet sich wie folgt: 32*64+2=2050 

: ANIMATIONEN 

; Nachzuladendes File: 

: "raw/Bob32x32_I pl.raw" auf "Bob” 


dmaconr = 

$02 

bltddat 

$00 

bltconO = 

$40 

bltcon 1 

$42 

bltafwm = 

$44 

bltalwm = 

$46 

bltcpth 

$48 
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bltbpth 

= 

bltapth 

= 

bltaptl 

= 

bltdpth 

= 

bltsize 

= 

bltcmod 

= 

bltbmod 

= 

bltamod 

= 

bltdmod 

= 

bltcdat 

= 

bltbdat 

= 

bltadat 

= 


s: 

bsr.s 

bsr.L 

loop: 

move.l 

and.l 


cmp.l 

bne.s 


move.l 

bsr.L 


btst 

bne.s 

end: 

move.w 

e: 

moveq.l 

i*ts 

opening: 

move.w 

move.l 


$4c 

$50 

$52 

$54 

$58 

$60 

$62 

$64 

$66 

$70 

$72 

$74 


opening 

initcolors 


$dff004,d0 

#$moo.do 

#$08000,d0 

loop 

#$dft000,a6 

Animation 

#6,$bfe001 
loop 

#$cOOO.$dfTD9a 

#0,d0 


#$4000,$dff09a 

#copperl,$dff084 
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move.l 

#pic,dO 

move 

dO.pl 1+6 

swap 

dO 

move 

dO.pl 1+2 

swap 

dO 

move.l 

#sprite,dO 

lea 

spl+2(pc),a0 

moveq.l 

#7.dl ;8 Sprites 

nitsprites: swap 

dO 

move 

dO,(aO) 

add.l 

#4.a0 

swap 

dO 

move 

dO.(aO) 

add.l 

#4,a0 

dbf 

d 1. in itsprites 

rts 



initcolors: lea 

color(pc),a0 

lea 

colortable( pc),a 

moveq 

#l,d0 

move 

#$l 80,dl 

copycolors: 

move 

d 1 ,(a0)+ 

move 

(a 1 )+.(a0)+ 

addq 

#2.dl 

dbf 

dO.copycolors 

ils 

colortable: dc.w 

$0000,$0fff 

copperl: 

dc.w 

$008e,$3090 

dc.w 

$0090,$08fö 

dc.w 

$0092,$003 8 
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dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

pH: dc.w 

dc.w 

color: blk.b 

spl: dc.w 

dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 

dc.w 


$0094,$00d0 
$ 0102,$0000 
$0104,$0024 
$0108,$0000 
$010a,$0000 
$ 0100 ,$ 1200 
$00e0,$0000 
$00e2,$0000 
8,0 

$0120,$0000 
$0122,$0000 
$0124,$0000 
$0126,$0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$012e,$0000 
$0130,$0000 
$0132,$0000 
$0134,$0000 
$0136,$0000 
$013 8,$0000 
$013a,$0000 
$013c,$0000 
$013e,$0000 
$ffff,$fffe 


Animation: 

move.w #%00001001 1 I I 10000,BLTCON0(A6) 
clr.w BLTCONI(aö) 

clr.w BLTAMOD(a6) 

move.w #36,BLTDMOD(a6) 

move.w #$FFFF,BLTAFWM(a6) 
move.w #$FFFF.BLTALWM(a6) 
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move.l 

#bob,d() 


move.l 

#circletab,a() 


add.l 

Phase,aO 


add.l 

(aO),dO 


move.l 

d(),BLTAPTH(a6) 


move.l 

#pic,BLTDPTH(a6); 


move.w 

#2050,BLTSIZE(a6); 


add.l 

#4.phase 


cmp.l 

#24*6.pliase 


bne.s 

weiter 


move.l 

#0,pliase 

weiter: 

ils 


sprite: 

de. 

1 0 

pliase: 

de. 

1 0 

circletab: 


de. 1 

000.000,000,000,000,000 


de. 1 

128.128.128.128.128.128 


dc.l 

256,256,256,256,256,256 


dc.l 

384.384,384,384,384,384 


dc.l 

256.256,256,256,256,256 


dc.l 

128.128.128.128.128.128 

hob: 

blk.b 

512.0 

pic: 

blk.b 

8000.0 
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3.4. DER LINE-BEFEHL 


3.4.1. WIE ZEICHNET MAN LINIEN? 

Neben dem normalen Kopier-Modus verfügt der Blitter über einen 
Linien-Modus, mit dem es möglich ist, Linien schneller zu zeichnen, 
als dies mit dem Prozessor möglich wäre. 

Was ist aber eigentlich eine Linie? Eine Linie ist eine Verbindung 
zwischen zwei Punkten, die dadurch entsteht, daß mehrere Punkte 
aneinander gereiht werden. 

Nun leider ist es nicht so ohne weiteres möglich, dem Blitter die 
Koordinaten für eine Linie zu übergeben und ihn diese zeichnen zu 
lassen, denn die verschiedenen Blitterregister, die wir schon 
kennengelernt haben, werden teilweise im Linien-Modus anders 
verwendet. 

Der Hauptschalter, der den Linien-Modus aktiviert, ist im Register 
BLTCONO in Bit 0 zu finden. Dieses Bit muß auf 1 gesetzt werden, 
damit der Linien-Modus aktiviert wird. 

In den Registern BLTCPT und BLTDPT muß die Adresse jenes 
Words der Bitplane liegen, in dem sich der Startpunkt der Linie 
befindet. 

Welcher der 16 Punkte der genaue Startpunkt der Linie ist, wird in 
die Bits 12 bis 15 von BLTCONO eingetragen. Ebenfalls sind die 
USEx-Bits (Bits 8-11) auf % 101 1 zu setzen. 

Das war ja bis jetzt noch relativ einfach, nur leider ist die 
Berechnung des Endpunktes etwas komplizierter. Wir müssen zuerst 
angeben, in welche Richtung die Linie fuhrt (siehe Abbildung auf 
der nächsten Seite). 

Je nachdem, in welchen Abschnitt die Linie führt, muß die 
entsprechende Bitkombination mit den Bits 2 bis 4 des Registers 
BLTCON1 angegeben werden. 


65 




Nun wird die Steigung berechnet. Dazu benötigen wir den 
Startpunkt (XO,YO) und den Endpunkt (X1,Y1), sowie den 
zugehörigen Delta-Wert. 

DeltaX = |X0-X1| 

DeltaY = | Y 0-Y11 

Nun vergleichen wir beide Delta-Werte miteinander und nennen den 
kleineren DX und den größeren DY. Wenn 2*DX < DY ist, muß Bit 
6 von BLTCON1 auf I gesetzt werden, ansonsten auf 0. DY ist 
gleichzeitig die Länge der Linie, wobei Blitterlinien maximal 1024 
Punkte lang sein können. Soll eine Linie die maximale Ausdehnung 
haben, so muß DY auf 0 gesetzt sein. Normalerweise berechnet sich 
die BLTSIZE: Höhe*64 + Breite in Words. Im Linien-Modus ist 
dies auch etwas anders: BLTSIZE = Länge der Lmie*64 + 2. Im 
Register BLTADAT muß Bit 15 gesetzt werden. 

In die LFx-Bits des Registers BLTCONO muß die richtige Miniterm- 
Kombination geschrieben werden. In unserem Fall ist das der Wert 
%11001010. 

BLTAPTL wird mit 2*DX-DY beschrieben, ln BLTAMOD folgt 
2*(DX-DY) und in BLTBMOD 2*DX. Die Modulo-Register 
BLTCMOD und BLTDMOD werden mit der Breite des Bildes in 
Bytes adressiert. 
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Das Masken-Register BLTAFWM muß ausmaskiert werden, das 
heißt, daß alle Bits gesetzt werden müssen. 

In das Register BLTBDAT kommt das Muster (auch Maske 
genannt), mit dem die Linie gezeichnet werden soll. Denn der Blitter 
ist in der Lage, wordweise ein Muster in die Linie zu zeichnen. Will 
man eine durchgehende Linie, so ist $ffff zu verwenden. Die Maske 
der Linie kann innerhalb eines Words auch noch pixelweise 
verschoben werden. Will man diese verschieben, so ist dies mit den 
Bits 12 bis 15 von BLTCONI zu tun. 

Wichtig für das Flächenfüllen, das wir einige Seiten weiter hinten 
ausführlich besprechen werden, ist eine exakte Begrenzung, das 
bedeutet, es darf immer nur ein Punkt in einer Zeile sein. Der Blitter 
unterstützt dies durch eine spezielle Funktion. Setzt man Bit 1 von 
BLTCON I auf 1, dann wird nur 1 Pixel pro Zeile gesetzt. 

Ein fertiges Beispielprogramm, das Ihnen die aufwendigen 
Berechnungen des Start- und Endpunktes abnimmt, finden Sie auf 
den nächsten Seiten. 


3.4.2. GEMUSTERTE LINIEN 

Es folgt nun das fertige BeispielIisting, das die im vorhergehenden 
Kapitel besprochenen Linien mit Hilfe des Blitters auf den 
Bildschirm zeichnet. Die Routine ist so gehalten, daß man ihr nur 
die Bitplaneadresse, die Koordinaten des Anfangs- und Endpunktes, 
sowie die Hardwarebasisadresse übergeben muß. 

.****DrawLine ***********************^ 

.* 

;* A4: Zeiger auf Bitplane 

;* A6: Basisadresse SDFF000 

;* DO.w: xü 

;* Dl.w.yO 
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;* D2.w: xl 

;* D3.w:yl 

.* 

.****************************************************** 

Das Programm errechnet sämtliche anderen notwendigen Parameter, 
die sich daraus ergeben. Da man mit dem Linien-Modus den Linien 
ein beliebiges Muster geben kann, wird auch dieses vor dem 
Unterroutinenaufruf übergeben. 

move.w #$ffff,bltbdat(a6) ;Musterd. Linie 

Wird $ffff übergeben, so sind alle Bits gesetzt und die Linie wird 
durchgehend gezeichnet. In unserem BeispielIisting werden zwei 
Linien gezeichnet, wobei die eine durchgehend und die andere 
gemustert dargestellt wird. 


%%%%%%% 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o% 0 /o 0 /o% 0 /o 0 /o% 

% LINIEN ZIEHEN MIT DEM BUTTER % 

%%%%%%%%%% 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o 0 /o% 0 /o%% 


bltbmod 

= 

$62 

bltaptl 

= 

$52 

bltcon 1 

= 

$42 

bltamod 

- 

$64 

bltadat 

- 

$74 

bltbdat 

= 

$72 

bltafwm 

= 

$44 

bltcmod 

= 

$60 

bltdmod 

= 

$66 

bltconO 

= 

$40 

bltcpth 

= 

$48 

bltdpth 

= 

$54 

bltsize 

= 

$58 
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dmaconr = 


s: bsr.L 

bsr.L 


move.w 

move.w 

move.w 

move.w 

move.l 

move.l 

move.w 

bsr.L 

WaitLoop2 

:btst 

bne.s 

move.w 

move.w 

move.w 

move.w 

move.l 

move.l 

move.w 

bsr.L 

loop: move.l 

and.l 
cmp.l 
bne.s 

btst 

bne.s 


$02 


opening 

initcolors 


#0,d0 

#0,dl 

# 150,d2 

#IOO,d3 

#pic,a4 

#$dfft)00,a6 

#$f0f0,bltbdat(a6) 

Drawline 


#6,DMACONR(A6) 

WaitLoop2 

# I 50,dO 

#IOO,dl 

#320,d2 

#200,d3 

#pic,a4 

#$dfiT)00,a6 

#$ffff,bltbdat(a6) 

Drawline 

$dftT)04,d0 

#$fffö0,d0 

#$00003000,d0 

loop 

#6,$bfe001 
loop 


;X I -Koordinate 
;Y 1 -Koordinate 
;X2-Koordinate 
;Y2-Koordinate 
;Adresse der Bitplane 
;Basisadresse 
;Muster d. Linie 
;Routine anspringen 

;Blitterwait 


;XI-Koordinate 
;Y 1-Koordinate 
;X2-Koordinate 
;Y2-Koordinate 
;Adresse der Bitplane 
;Basisadresse 
;Muster d. Linie 
;Routine anspringen 
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end: move.w 

#$c000,$dffD9a 

moveq.l 
e: rts 

#0,d0 

opening: move.w 

#$4000,$dff09a 

move.l 

#copperlist,$dff084 

move.l 

#pic,d0 

move 

d0,pll+6 

swap 

dO 

move 

d0,pll+2 

swap 

dO 

move.l 

#sprite,dü 

lea 

spl+2(pc),a0 

moveq.l 

#7,dl 

initsprites: swap 

dO 

move 

d0,(a0) 

add.l 

#4,a0 

swap 

dO 

move 

d0,(a0) 

add.l 

#4,a0 

dbf 

rts 

dl,initsprites 

initcolors: lea 

color(pc),a0 

lea 

colortable(pc),al 

iiioveq 

#l,d0 

move 

#$l 80,d 1 

copycolors: move 

dl,(a0)+ 

move 

(al)+,(a0)+ 

addq 

#2,dl 

dbf 

rts 

dO,copycolors 


. * **** [)rawLine* * *************** * ******** * **** * *** * **** * 
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;* A4: Zeiger auf Bitplane 

;* A6: Basisadresse $DFFOOÖ 

;* DO.w: xO 
;* Dl.w:yO 
;* D2.w:xl 

;* D3.w: y I 

. * 

.*************************** *************************** 


DrawLine: 

: movem.l 

L)0-D5/A4,-( A7) 


sub.w 

D0.D2 


bmi.s 

xOgxl 


sub.w 

D1.D3 


bmi.s 

yOgy10 


cmp.w 

D3,D2 


bmi.s 

dygdxO 


moveq 

#[4*4]!I,D4 


bra.s 

OkO 

dygdxO: 

exg 

D3.D2 


moveq 

#I,D4 


bra.s 

OkO 

yOgy10: 

neg.w 

D3 


cmp.w 

D3,D2 


bmi.s 

dygdx1 


moveq 

#[6*4]!1,D4 


bra.s 

OkO 

dygdx 1: 

exg 

D3.D2 


moveq 

#[ 1 *4|! 1 ,D4 


bra.s 

OkO 

xOgx 1: 

neg.w 

D2 
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sub.w 

bmi.s 

cmp.w 

bmi.s 

moveq 

bra.s 

Dl ,D3 

yOgyl 1 

D3,D2 

dygdx2 

#[5*4]! 

OkO 

l,D4 

dygdx2: 

exg 

moveq 

bra.s 

D3,D2 

#[2*4]! 

OkO 

l,D4 

yOgy 1 1: 

neg.w 

cmp.w 

bmi.s 

moveq 

bra.s 

D3 

D3,D2 

dygdx3 

#[7*4]! 

OkO 

l,D4 

* 

dygdx3: 

exg 

moveq 

D3,D2 

#[3*4]! 

l,D4 

OkO: 

Isl.w 

#2,D3 


* 

WaitLoop: btst 
bne.s 

#6,DMACONR(A6) 

WaitLoop 


niove.w D3,BLTBMOD(A6) 


add.w 

D2,D2 

sub.w 

D2,D3 

bpl.s 

Okl 

or.b 

#%1000000,D4 

move.w 

D3,BLTAPTL(A6) 

or.w 

#%l 1 11000000000000, D4 

move.w 

D4,BLTCONl(A6) 

sub.w 

D2,D3 
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copperl ist: 


move.w 

D3,BLTAMOD(A6) 

move.w 

#$8000,BLTADAT(A6) 

moveq 

#-l,D3 

move.l 

D3,BLTAFWM(A6) 

move.w 

#40,BLTCMOD(A6) 

move.w 

#40,BLTDMOD( A6) 

move.w 

D0,D3 

and.w 

#$f,D3 

ror.w 

#4,D3 

or.w 

#$bea,D3 

move.w 

D3,BLTCONO(A6) 

Isr.w 

#3,DO 

mulu 

#40,DI 

add.w 

Dl.DO 

lea.l 

(A4,D0.w),A4 

move.l 

A4,BLTC'PTH(A6) 

move.l 

A4,BLTDPTH(A6) 

Isl.w 

#5,D2 

add.w 

#$42,D2 

move.w 

D2,BLTSIZE(A6) 

movem.l 

(A7)+,D0-D5/A4 rts 


dc.w 

$008e,$3090 

dc.w 

$0090,$nSfT) 

dc.w 

$0092,50038 

dc.w 

$0094,$00d0 

dc.w 

$0I02,$0000 

dc.w 

$0I04,$0024 

dc.w 

$0108.50000 

dc.w 

$0l0a,$0000 
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dc.w 

PH: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

color: 

blk.w 


dc.w 

colortable: 

dc.w 

sprite: 

de. 

* 

pic: 

blk.b 


$0100,$ 1200 
$00e0,$0000 
$00e2,$0000 
$0I20,$0000 
$ 0122,$0000 
$0124,$0000 
$0I26,$0000 
$0I28,$0000 
$0l2a,$0000 
$0l2c,$0000 
$0l2e,$0000 
$0I30,$0000 
$0132,$0000 
$0I34,$0000 
$0I36,$0000 
$0138,$0000 
$013a,$0000 
$013c,$0000 
$013e,$0000 
4,0 

$ffff,$fffe 

$0000,$0fff 
I 0 

8000,0 
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3.4.3. OBJEKTE DREHEN 


Wir haben gelernt, daß man mit dem Blitter blitzschnell Linien 
ziehen kann, und diese auch ein Muster enthalten dürfen. Diese 
Fähigkeit machen wir uns zunutze, um ein Objekt zu drehen. 

Wie funktioniert das im Detail? Wir haben ein Objekt, das 16 Punkte 
breit und 15 Zeilen hoch ist. Wir projizieren jetzt jede horizontale 
Linie des Objektes auf eine Linie. Das bedeutet, wir haben jetzt 15 
Linien, die je 16 Pixel breit sind und jede Linie hat als Muster die 
Bitkombination, die die jeweilige Zeile unseres Objektes besitzt. 

Wir wissen auch, daß wir eine Blitter-Linie in jedem beliebigen 
Winkel darstellen können. Und genau das machen wir jetzt auch mit 
unserem Objekt. Wir drehen alle 15 Zeilen, indem wir den richtigen 
Winkel berechnen. Der Prozessor stellt uns leider keine 
Sinus/Cosinus-Routine zur Verfügung, daher müssen wir selber eine 
schreiben. Nur würde eine Echtzeitberechnung zu lange dauern, 
daher sind die Sinus-Werte in einer Tabelle abgelegt und werden 
von der folgenden Routine verwendet. 


cos: 

add.b 

#64,d6 

Sin: 

move.b 

D6.D7 


and.w 

#$ff,D6 


add.w 

D6.D6 


and.w 

#$ff,D6 


move.w 

SinTable( PC,D6.w),D6 


btst 

#7,D7 


beq.s 

Return 


neg.w 

D6 

Return: 

rts 



Ein Problem tritt noch auf, denn, wenn das Objekt gedreht wird, 
kommt es bei einer ungünstigen Winkellage vor, daß zwischen den 
Linien der Hintergrund durchscheint. Diesen Schönheitsfehler kann 
man leicht dadurch beheben, daß man eine zweite Bitplane ebenfalls 
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mit derselben Adresse adressiert, wie sie die erste Bitplane hat. 
Diese zweite Bitplane wird um eine Zeile nach oben verschoben. 
Durch die Überdeckung werden die unschönen Löcher verdeckt und 
schon dreht sich unser Objekt sauber! 

; %%%%%%%%%%%%% 

; % OBJEKTE DREHEN % 

; %%%%%%%%%%%%% 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltconl 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 


s: bsr.s opening 

bsr.L initcolors 


loop: 

move.l 

$dff004,d0 


and.l 

#$fff00,d0 


cmp.l 

#$08000,d( 
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bne.s 

loop 

move.l 

#$DFF000,a6 

bsr.L 

Drehen 

btst 

#6,$bfe001 

bne.s 

loop 


end: 

move.w 

#$c000,$dff09a 


moveq.l 

#0,d0 

e: 

rts 


opening: 

move.w 

#$4000,$dff09a 


move.l 

#copperl,$dff084 


move.l 

#pic,dO 


move 

dO.pl 1 +6 


swap 

dO 


move 

dO.pl 1+2 


swap 

dO 


move 

d0,pl2+6 


swap 

dO 


move 

d0,pl2+2 


move.l 

#sprite,d0 


lea 

sp 1 +2(pc),a0 


moveq.l 

#7,d 1 

initsprites: swap 

dO 


move 

dO.(aO) 


add.l 

#4,a0 


swap 

dO 


move 

dO.(aO) 


add.l 

#4,a0 


dbf 

rts 

d 1 .initsprites 


;8 Sprites 
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initcolors:lea 

color(pc),aO 

lea 

colortable(pc),al 

moveq 

#3,d0 

move 

#$l80.dl 

copycolors:move 

d 1 ,(a0)+ 

move 

(a 1 )+,(a0)+ 

addq 

#2,dl 

dbf 

dO,copycolors 

rts 

colortable: dc.w 

$0000,$0fff,$0fff,$0fff 

copperl: 

dc.w 

$008e,$3090 

dc.w 

$0090,$f8PD 

dc.w 

$0092,$0038 

dc.w 

$0094,$00d0 

dc.w 

$0102.S0010 ;2.Pla 

dc.w 

$0104,$0024 

dc.w 

$0108,$0000 

dc.w 

$0l0a,$0000 

dc.w 

$0100,$2200 

pll: dc.w 

$00e0,$0000 

dc.w 

$00e2,$0000 

pl2: dc.w 

$00e4,$0000 

dc.w 

$00e6,$0000 

color: blk.b 

16,0 

spl: dc.w 

$0120,$0000 

dc.w 

$0122,$0000 

dc.w 

$0124,$0000 

dc.w 

$0126,$0000 

dc.w 

$0I28,$0000 

dc.w 

$012a,$0000 

dc.w 

$012c,$0000 

dc.w 

$0l2e,$0000 


Pixel nach rechts 
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dc.w $0130,$0000 

dc.w $0132,$0000 

dc.w $0134,50000 

dc.w $0136,50000 

dc.w $0138,50000 

dc.w $013a,$0000 

dc.w $013c,$0000 

dc.w $0l3e.$0000 

dc.w $ffff,$fffe 


. * * * * * L j ne +* *************************************** 

.* 

;* A4: Zeiger auf Bitplane 

;* DO: xO 

;* Dl: yO 

;* D2:xl 

;* D3: y I 

.* 

.****************************************************** 
DrawLine: movem.l D0-D5/A4,-( A7) 

sub.w D0,D2 

bmi.s xOgxl 

sub.w D1,D3 

bmi.s yOgylO 

cmp.w D3,D2 

bmi.s dygdxO 

moveq #[4*4]! I ,D4 
bra.s OkO 


dygdxü:exg D3,D2 

moveq #1,D4 

bra.s OkO 

yOgylO: lieg.w D3 
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cmp.w 

bmi.s 

moveq 

bra.s 

dygdxl:exg 

moveq 

bra.s 

xOgxl: neg.w 

sub.w 
bmi.s 
cmp.w 
bmi.s 
moveq 
bra.s 

* 

dygd.\2: exg 

moveq 

bra.s 

yOgylI: neg.w 

cmp.w 

bmi.s 

moveq 

bra.s 

dygdx3:exg 

moveq 

OkO: Isl.w 

WaitLoopl :btst 
bne.s 

move.w 


D3,D2 
dygdxI 
#[6*4]! I,D4 
OkO 

D3,D2 

#[ I *4]! 1 ,D4 

OkO 

D2 

DI,D3 

yOgy 11 

D3,D2 

dygdx2 

#[5*4]!I,D4 

OkO 

D3.D2 
#[2*4]! I.D4 
OkO 

D3 

D3.D2 

dygdx3 

#[7*4]!I,D4 

OkO 

D3,D2 

#[3*4]!I,D4 

#2,D3 

#6,DMACONR(A6) 

WaitLoopl 

D3,BLTBMOD(A6) 
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Okl: 


add.w D2,D2 

sub.w D2,D3 

bpl.s Okl 

or.b #%\ 000000, D4 

move.w D3,BLTAPTL(A6) 

or.w #% I I I 1000000000000, D4 

move.w D4.BLTCON l(A6) 


sub.w D2,D3 

move.w D3,BLTAMOD(A6) 


move.w #$8000,BLTADAT(A6) moveq #-l,D3 
move.l D3,BLTAFWM(A6) 
move.w #40,BLTCMOD(A6) 
move.w #40,BLTDMOD(A6) 


move.w D0,D3 

and.w #$f,D3 

ror.w #4,D3 

or.w #$bea,D3 

move.w D3,BLTCONO(A6) 

Isr.w #3,DO 

mulu #40,DI 

add.w Dl,DO 

lea.l (A4,D0.w),A4 

move.l A4,BLTCPTH(A6) 

move.l A4,BLTDPTH(A6) 

Isl.w #5,D2 

add.w #$42,D2 

move.w D2,BLTSIZE(A6) 

movem.l (A7)+,D0-D5/A4 
rts 
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,^;)(c^c3|cHe3|c^(^c^c3|c^(^c^e^c^c^c^e^c3|c^(^c^e%^e^c%3|c)|(^c^e9|c^e^e^e^c^: 

; Drehen: 


Löschen des Bildschirm an der entsprechenden Stelle 

Der Einfachkeit halber wird der Bildschirm gleich über 
die ganze Breite gelöscht. 

clr.w 

BLTDDAT(aö) 

clr.w 

BLTCDAT(a6) 

clr.w 

BLTBDAT(a6) 

clr.w 

BLTADAT(aö) 

move.w 

#%0000000l 11 1 10000,BLTCON0(a6) 

clr.w 

BLTCON l(a6) 

clr.w 

BLTAMOD(a6) 

clr.w 

BLTDMOD(aö) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.l 

#pic,dO 

add.l 

#1 I60,d0 

move.l 

dO,BLTDPTH(a6) 

move.w 

#2708,BLTSIZE(a6) ;42*64 + 20 

WaitLoop2:btst 

#6.DMACONR(A6) 

bne.s 

WaitLoop2 

: Berechnung und Zeichnung der Drehung 

move.l 

#pic,a4 

move.l 

#bob,A0 
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loop2: 


moveq 

#0,D0 

moveq 

# o , d \ 

moveq 

# 15.D2 

moveq 

#0,D3 

move.b 

winkel,D6 

bsr.L 

Sin 

move.w 

D6.D7 

move.b 

winkel,D6 

move.w 

D7,-(A7) 

bsr.L 

Cos 

move.w 

(A7)+,D7 

movem.w 

DO-D3,-(A7) 

move.w 

D0.D4 

move.w 

DI.D5 

muls 

D6.D0 

muls 

D7,D5 

add.l 

D5,D() 

asr.l 

#8, DO 

asr.l 

#6,D0 

muls 

D6,DI 

muls 

D7,D4 

sub.l 

D4,DI 

asr.l 

#8,DI 

asr.l 

#6,Dl 

move.w 

D2,D4 

move.w 

D3,D5 

muls 

D6.D2 
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muls 

D7,D5 


add.l 

D5.D2 


asr.l 

#8,D2 


asr.l 

#6,D2 


muls 

D6,D3 


muls 

D7,D4 


sub.l 

D4.D3 


asr.l 

#8,D3 


asr.l 

#6,D3 


add.l 

#120,D0 

;Berechnet wird die 
;Drehung fürdie 

add.l 

#50,DI 

;Position (0/0), daher 
;wird eineVerschiebung 

add.l 

#120,d2 

;in Richtung Bild¬ 
schirm m itte 

add.l 

#50,d3 

;notwendig. 

move.w 

(aO)+,BLTBDAT(A6) 

bsr.L 

DrawLine 


movem.w 

(A7)+,D0-D3 


addq.w 

#I,D1 


move.w 

DI,D3 


cmp.w 

#15,Dl 

;Zeilenanzahl 

bne.s 

Loop2 


add.b 

rts 

#2,winkel 

;Kein Zählen nötig, da 
;die Sinus-Unterroutine 
;nür bis 255 geht. 

:********************************************* 


D6: Winkel (0-255) 
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.****************************************************** 


cos: 

Sin: 


Return: 

SinTable: 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

winkel: 

sprite: 

size: 


add.b 

#64,d6 

move.b 

D6.D7 

and.w 

#$ff,D6 

add.w 

D6,D6 

and.w 

#$ff,D6 

move.w 

SinTable( PC,D6.w),D6 

btst 

#7,D7 

beq.s 

Return 

neg.w 

rts 

D6 


$0000,$0192,$0324,$04b5,$0646,$07d6,$0964,$0afl 
$0c7c,$0e06,$0f8d,$ I i 12,$ I294,$ 1413,$ 1590,$ 1709 
$ 187e,$ 19ef,$ I b5d,$ 1 cc6,$ 1 e2b,$ I f8c,$20e7,$223d 
$238e,$24da,$2620,$2760,$289a,$29ce,$2afb,$2c2l 
$2d41 ,$2e5a,$2f6c,$3076,$3 179,$3274,$3368,$3453 
$3537,$3612,$36e5,$37b0,$3871 ,$392b,$39db,$3a82 
$3b21 ,$3bb6,$3c42,$3cc5,$3d3f,$3daf,$3e 15,$3e72 
$3ec5,$3fDf,$3f4f,$3f85,$3fbl,$3fd4,$3fec,$3ffb 
$4000,$3ffb,$3fec,$3fd4,$3fbl,$3f85,$3f4f,$3f0f 
$3ec5,$3e72,$3el 5,$3daf,$3d3f,$3cc5,$3c42,$3bb6 
$3b21 ,$3a82,$39db,$392b,$3871 ,$37b0,$36e5,$3612 
$3537,$3453,$3368,$3274,$3179,$3076,$2f6c,$2e5a 
$2d41 ,$2c21 ,$2afb,$29ce,$289a,$2760,$2620,$24da 
$238e,$223d,$20e7,$ 1 f8c,$ I e2b,$ 1 cc6,$ 1 b5d,$ 19ef 
$ 187e,$ 1709,$ 1590,$ 1413,$! 294,$ 1 1 12,$008d,$0e06 
$0c7c,$0af 1 ,$0964,$07d6,$0646,$04b5,$0324,$0192 


dc.w 0 
dc.l 0 
de.I 8000 


85 



bob: 


dc.w %M I 1 1 1 1 II1 1111 ] I 

dc.w %0000000000000000 

dc.w %0000000l10000000 

dc.w %0000000l10000000 

dc.w %0001100110011000 

dc.w %0001100110011000 

dc.w %000111 1111111000 

dc.w %0001111111111000 

dc.w %0001111111111000 

dc.w %0001100110011000 

dc.w %0001100110011000 

dc.w %0000000110000000 

dc.w %00000001 10000000 

dc.w %0000000000000000 

dc.w %l 111111111111111 

* 

pic: blk.b 8000,0 

3.5. FLÄCHEN FÜLLEN 

3.5.1. EINFACHES FLÄCHENFÜLLEN 

Die dritte und letzte Aufgabe, die der Blitter zusätzlich zum kopie¬ 
ren b.z.w. Linien ziehen ausführen kann, ist das Füllen von Flächen. 
In den diversen Malprogrammen kann man immer wieder die 
tollsten Füllfunktionen beobachten. Die Grund-Füll-Funktion des 
Blitters ist hingegen nicht so komplex. 

Damit der Blitter eine Fläche korrekt ausfüllen kann, muß diese 
sowohl auf der linken, als auch auf der rechten Seite durch ein 
gesetztes Bit begrenzt sein. Ist dies der Fall, füllt er den Zwischen¬ 
raum aus, indem er die gelöschten Bits auf 1 setzt. 
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Bitplane vor der Fülloperation: 


00000000000IOOOOOOOO1OOOOOOOOOOO 
OOOOOOOOOIOOOOOOOOOOOOI000000000 
00000001000000000000000010000000 
00000100000000000000000000100000 
00010000000000000000000000001000 

Und nach der Fülloperation: 

000000000001I11II11I100000000000 
0000000001I1I1III1111I1000000000 
00000001III1I1II111I1I1110000000 
0000011I1II1II111I1I1111I1100000 
00011I111IIII1IIII11I111II111000 

Wichtig ist, daß nur ein Bit sowohl links als auch rechts als 
Begrenzung eingesetzt wird. Denn sind mehrere Bits vorhanden, 
kommt der Füllalgorithmus des Blitters durcheinander. Dies 
geschieht deshalb, da der Blitter immer rechts beginnend die Bits 
testet, bis er auf ein gesetztes Bit trifft. Ist dies der Fall, setzt er das 
FillCarry-Bit auf I und setzt gleichzeitig das Bit in der Gratlk. 
Dieser Vorgang wiederholt sich solange, bis er wieder auf ein 
gesetztes Bit trifft. Ist nun eine ungerade Anzahl an Begrenzungsbits 
vorhanden, ist es leicht verständlich, daß der Blitter dadurch irritiert 
wird. 

Normalerweise ist das FC-ßit beim Start der Fülloperation auf Null 
gesetzt. Bit 2 im BLTCON I-Register ist das FCI (Fill Carry In) Bit 
und beinhaltet jenen Weil, den das Fill-Carry-Bit am Anfang der 
Blitteroperation annehmen soll. Setzen wir nun das FCI-Bit auf eins, 
so beginnt der Blitter schon ganz rechts mit dem Füllen der Flächen 
und läßt jenen Bereich aus, der innerhalb der Begrenzungslinien 
liegt. 
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Die Bitplane vor der Fülloperation mit den Begrenzungslinien: 


00000000000I00000000I00000000000 
0000000001000000000000I000000000 
0000000I0000000000000000I0000000 
00000I00000000000000000000I00000 
000I0000000000000000000000001000 


Die Bitplane nach der Fülloperation, wenn das Fill-Carry-In Bit (Bit 
2 in BLTCONI) auf 0 gesetzt ist. 

000000000001I111111II00000000000 
0000000001IIIIIIIIII1I1000000000 
00000001IIIIII1II1II1III10000000 

oooooi iiiimm miimii iooooo 
oooin ihm i liimiii im ii nooo 


Die Bitplane nach der Fülloperation, wenn das Fill-Carry-Bit auf I 
gesetzt ist. 


111111II1I11000000001111I1I1II11 
I1111 I111100000000000011III11I 11 
II I I 11 11000000000000000011I111II 
I 11 I I 100000000000000000000111111 
I1II0000000000000000000000001III 

Da immer zwei Begrenzungs-Bits benötigt werden, um eine Fläche 
zu Füllen, wäre die kleinste Einheit einer Fläche 2 Bits breit. Eine 
Fläche die nur ein Bit breit ist, wäre unmöglich in einer 
Fülloperation zu verwenden, da sie immer ein falsches Ergebnis 
liefern würde. Aus diesem Grund gibt es einen zweiten Füll-Modus. 
Der erste, den wir oben erläutert haben, bei dem man zwei 
Begrenzungs-Bits benötigt, ist der sogenannte IFE-Modus (Inclusive 
Fill Enable). Der zweite Modus ist der EFE-Modus (Exclusive Fill 
Enable), der ebenfalls zwei Begrenzungs-Bits benötigt. Der 
Unterschied zum ersten Modus ist, daß der EFE-Modus beim Füllen 
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immer das linke Begrenzungs-Bit löscht. Es wird also immer jenes 
Bit gelöscht, wenn das FC-Bit wieder von 1 auf 0 wechselt. 

Der Blitter kann das Füllen von Flächen zusätzlich zu einer 
gestarteten Kopieraktion ausführen und er wird dadurch nicht, wie 
oftmals fälschlicherweise behauptet, langsamer. Wie wird der 
Füllmodus nun aber aktiviert? 


move.w 

#$FFFF,BLTDDAT(a6) 

move.w 

#$FFFF,BLTCDAT(a6) 

move.w 

#$FFFF,BLTBDAT(a6) 

move.w 

#$FFFF,BLTADAT(a6) 

clr.w 

BLTAMOD(a6) 

clr.w 

BLTDMOD(a6) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.w 

#%000()l()0l 1 1 1 10()00,BLTCON0(a6) 


Die Blitterregister sollten so initialisiert werden, wie es bei einem 
normalen Kopiervorgang üblich ist. Das Ergebnis der Verknüpfung 
der drei Quellen muß durch die Miniterm-Kombination und die 
Modulo-Werte ein Ergebnis mit korrekten Begrenzungsbits im Ziel 
D liefern. 


move.w #%0()()()000000001010,BLTCON I (a6) 

Als nächstes ist einer der beiden Betriebsmodi für das Füllen zu 
wählen, dies ist entweden IFE oder EFE (in unserem Fall IFE). 
Ebenso wird der Descending-Modus aktiviert, da das Füllen von 
rechts nach links erfolgt und daher die einzelnen Words auch 
absteigend liegen müssen. 

move.l #Pic,dO 

add.l #101 *40-2,d0 
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move.l dO,BLTAPTH(a6) 
move.l dO,BLTDPTH(a6) 

move.w #6400+20,BLTSIZE(aö) 
rts 

Nach dem Eintrag der Quelle A und des Ziels D wird der Blitter 
durch Beschreiben von BLTSIZE gestartet. 

In unserem Beispielprogramm wurden die Begrenzungslinien mit 
dem Linien-Modus des Blitters zuerst gezogen und anschließend der 
entstandene Zwischenraum aufgefüllt. 


Flächen füllen 


bltddat 

= 

$00 

dmaconr 

= 

$02 

bltconO 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 

s: 

bsr.L 

opening 
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bsr.L 


initcolors 


move.w 

# 150,d0 

; XI-Koordinate 

move.w 

#0,d 1 

; Y1-Koordinate 

move.w 

#20,d2 

; X2-Koordinate 

move.w 

#IOO,d3 

; Y2-Koordinate 

move.l 

#Pic,a4 

; Adresse der Bitplane 

move.l 

#$dff000,a6 

; Basisadresse 

move.w 

#$ffff,bltbdat(a6) 

; Muster d. Linie 

bsr.L 

Drawline 

; Routine anspringen 

WaitLoop: btst 

#6,DMACONR( A6) 


bne.s 

WaitLoop 


move.w 

# 150,d0 

; X1-Koordinate 

move.w 

#0,dl 

; Yl 

move.w 

#300,d2 

; X2 

move.w 

#IOO.d3 

; Y2 

move.l 

#Pic,a4 

; Adresse der Bitplane 

move.l 

#$dffl000,a6 

; Basisadresse 

move.w 

#$ffff,bltbdat(a6) 

; Muster d. Linie 

bsr.L 

Drawline 

; Routine anspringen 

WaitLoop2:btst 

#6,DMACONR(a6) 


bne.s 

WaitLoop2 


move.l 

#$dff000,a6 


bsr.s 

fi II 


loop: btst 

#6,$bfe001 


bne.s 

loop 



end: 

move.w 

#$c000.$dffö9a 

e: 

moveq.l 

rts 

#0.d0 
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opening: move.w 
move.l 
move.l 
move 
swap 
move 
swap 

move.l 

lea 

moveq.l 

initsprites: swap 
move 
add.l 
swap 
move 
add.l 
dbf 
rts 


#$4000,$dffö9a 

#copperlist,$dff084 

#Pic,dO 

dO,pl 1+6 

dO 

dO,pl 1+2 
dO 

#sprite,dO 

spl+2(pc),a0 

#7,dl 

dO 

dO,(aO) 

#4,a0 

dO 

dO,(aO) 

#4,a0 

d 1, initsprites 


initcolors: lea 
lea 

moveq 

move 

copycolors:move 

move 

addq 

dbf 

rts 


color(pc),aO 
colortable(pc),al 
#31 ,d0 
#$l80,dl 
dl,(aO)+ 

(al )+,(a0)+ 

#2,dl 

dO,copycolors 


***************************************** 


fill: 


move.w #$FFFF,BLTDDAT(a6) 
move.w #$FFFF,BLTCDAT(a6) 
move.w #$FFFF,BLTBDAT(a6) 
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move.w 

#$FFFF,BLTADAT(a6) 

clr.w 

BLTAMOD(a6) 

clr.vv 

BLTDMOD(aö) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.w 

#%0000000000001010.BLTCON 1 (a6) 

move.w 

#%0000100l 1 1110000,BLTCON0(a6) 

move.l 

#Pic,dO 

add.l 

#101 *40-2,d0 

move.l 

dO,BLTAPTH(a6) 

move.l 

dO,BLTDPTH(a6) 

move.w 

#6400+20, BLTSIZE(a6) 

rts 

.*************************************************: 

DrawLinemiovem.l 

D0-D5/A4,-( A7) 

sub.w 

D0,D2 

bmi.s 

xOgxl 

sub.w 

DI.D3 

bmi.s 

yOgy10 

cmp.w 

D3.D2 

bmi.s 

dygdxO 

moveq 

#[4*4]! 1,D4 

bra.s 

OkO 

dygdxO:exg 

D3,D2 

moveq 

#I,D4 

bra.s 

OkO 

yOgylO: neg.w 

D3 

cmp.w 

D3,D2 
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bmi.s 


moveq 

bra.s 

dygdx1: 

exg 

moveq 

bra.s 

xOgx1: 

neg.w 

sub.w 


bmi.s 


cmp.w 

bmi.s 


moveq 

bra.s 

dygdx2: 

exg 


moveq 

bra.s 

* 

yOgyl 1: 

neg.w 

cmp.w 

bmi.s 


moveq 

bra.s 

dygdx3: 

exg 

* 

moveq 

* 

OkO: 

Isl.w 

WaitLoop3:btst 

bne.s 


move.w 


dygdxl 

#[6*4]!I,D4 

OkO 

D3,D2 
#[1*4]! 1,D4 
OkO 

D2 

DI.D3 

yOgyll 

D3,D2 

dygdx2 

#[5*4]!I,D4 

OkO 

D3,D2 

#[2*4]!1,D4 

OkO 

D3 

D3,D2 

dygdx3 

#[7*4]!I,D4 

OkO 

D3,D2 
#[3*4]! I ,D4 


#2,D3 

#6,DMACONR(A6) 

WaitLoop3 

D3,BLTBMOD(A6) 
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Okl: 


add.w 

D2,D2 

sub.vv 

D2,D3 

bpl.s 

Okl 

or.b 

#%l 000000, D4 

move.w 

D3,BLTAPTL(A6) 

or.w 

#%\ 11 1000000000010, D4 

move.w 

D4,BLTCON l(A6) 

sub.w 

D2,D3 

move.w 

D3,BLTAMOD(A6) 

move.w 

#$8000,BLTADAT(A6) 

moveq 

#-l,D3 

move.l 

D3,BLTAFWM(A6) 

move.w 

#40,BLTCMOD(A6) 

move.w 

#40,BLTDMOD(A6) 

move.w 

D0.D3 

and.w 

#$f,D3 

ror.w 

#4,D3 

or.w 

#$bea,D3 

move.w 

D3,BLTCONO(A6) 

Isr.w 

#3,DO 

mulu 

#40,D1 

add.w 

Dl, DO 

lea.l 

(A4,D0.w),A4 

move.l 

A4,BLTCPTH(A6) 

move.l 

A4,BLTDPTH(A6) 

Isl.w 

#5,D2 

add.w 

#$42,D2 

move.w 

D2,BLTSIZE(A6) 

movem.l 

(A7)+,D0-D5/A4 

rts 
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.************************************************* 


copperlist: 



dc.w 

$008e,$3090 


dc.w 

$0090,$f8fö 


dc.w 

$0092,$0038 


dc.w 

$0094,$00d0 


dc.w 

$0I02,$0000 


dc.w 

$0104,$0024 


dc.w 

$0108,$0000 


dc.w 

$010a,$0000 


dc.w 

$0100,$ 1200 

pll: 

dc.w 

$00e0,$0000 


dc.w 

$00e2,$0000 

color: 

blk.w 

64,0 

spl: 

dc.w 

$0l20,$0000 


dc.w 

$0I22,$0000 


dc.w 

$0I24,$0000 


dc.w 

$0126,$0000 


dc.w 

$0128,$0000 


dc.w 

$012a,$0000 


dc.w 

$012c,$0000 


dc.w 

$0l2e,$0000 


dc.w 

$0130,$0000 


dc.w 

$0l32,$0000 


dc.w 

$0I34,$0000 


dc.w 

$0I36,$0000 


dc.w 

$0I38,$0000 


dc.w 

$0l3a,$0000 


dc.w 

$0l3c,$0000 


dc.w 

$0l3e,$0000 


dc.w 

$ffff,$fffe 


colortable: dc.w 

$0000,$0fff,$0fff,$0fff 

sprite: 

de. 

1 0 

Pic: 

blk.b 

8000,0 
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3.S.2. FLÄCHEN MIT MUSTERN FÜLLEN 


Wie man Flächen einfarbig füllt, haben wir bereits gehört. Nun 
wollen wir eine Fläche mit einem beliebigen Muster, also einer 
Grafik füllen. Für unser Beispiel reicht es, wenn diese Grafik mit der 
die Fläche ausgefüllt werden soll, nur eine Bitplane besitzt. Das 
Muster kann von beliebiger Gestalt sein. Sie können mit einem 
Malprogramm ein Bild erstellen, das I Bitplane (=2 Farben) besitzt 
und 320 mal 100 Punkte groß ist. 

Der Blitter unterstützt eine solche Füll-Operation nicht, daher 
müssen wir zu einem Trick greifen. Die Fläche wird ganz normal 
ausgefüllt. Damit jetzt jedoch in der ausgefüllten Fläche das zuvor 
erstellte Bild erscheint, verwenden wir die gefüllte Fläche als Maske 
und "stanzen" somit quasi das gewünschte Bild aus. 


Aus£ran£rsb i 1 d: Grafik: 



Gefülltes Dreieck: Verwendung als Ergebnis: 

Maske: 

Durch diesen Trick ist es möglich, ein beliebiges Muster in eine 
beliebigen Fläche zu plazieren. 
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Flächen mit Muster füllen 


Nachzuladendes File: 
"raw/Muster.raw" auf "muster" 


bltddat 

= 

$00 


dmaconr 

= 

$02 


bltconü 

= 

$40 


bltcon 1 

= 

$42 


bltafwm 

= 

$44 


bltalwm 

= 

$46 


bltcpth 

= 

$48 


bltbpth 

= 

$4c 


bltapth 

= 

$50 


bltaptl 

= 

$52 


bltdpth 

= 

$54 


bltsize 

= 

$58 


bltcmod 

= 

$60 


bltbmod 

= 

$62 


bltamod 

= 

$64 


bltdmod 

= 

$66 


bltcdat 

= 

$70 


bltbdat 

= 

$72 


bltadat 

= 

$74 


s: 

bsr.L 

opening 



bsr.L 

initcolors 


; 

move.w 

#l50.d0 

; XI-Koordinate 


move.w 

#0,d1 

; Y1 


move.w 

#20,d2 

;X2 


move.w 

# 100,d3 

; Y2 


move.l 

#Pic,a4 

; Adresse der Bitplane 


move.l 

#$dff000,a6 

; Basisadresse 
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move.w 

hsr.L 

WaitLoop: btst 
bne.s 

move.w 

move.w 

move.w 

move.w 

move.l 

move.l 

move.w 

bsr.L 


WaitLoop2:btst 



bne.s 


move.l 

bsr.L 

loop: 

btst 

bne.s 

end: 

move.w 

e: 

moveq.l 

rts 

opening: 

move.w 

move.l 

move.l 

move 


swap 

move 


swap 


#$ffff,bltbdat(a6) 

Drawline 

#6,DMACONR(A6) 

WaitLoop 

# 1 50 , d() 

#0,d I 

#300,d2 

#IOO,d3 

#Pic,a4 

#$dffD00,a6 

#$ffff,bltbdat(a6) 

Drawline 

#6, DM ACON R(a6) 
WaitLoop2 

#$dff()00,a6 

fill 

#6,$bfe00l 

loop 

#$c000,$dffÖ9a 

#0,d0 


#$4000,$dffT)9a 

#copperlist,$dffö84 

#Pic,dO 

d(),pl I +6 

dü 

d0,pll+2 

dü 


; Muster d. Linie 
; Routine anspringen 


XI-Koordinate 
Y I 
X2 
Y2 

Adresse der Bitplane 
Basisadresse 
Muster d. Linie 
Routine anspringen 
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move.l 

#sprite.dO 

lea 

spl+2(pc),a0 

moveq.l 

#7.dl 

initsprites: swap 

dO 

niove 

dO.(aO) 

add.l 

#4,a0 

swap 

dO 

move 

dO.(aO) 

add.l 

#4.a0 

dbf 

d 1 .initsprites 

rts 



initcolors: lea 

color( pc),a() 

lea 

colortable(pc),a 

moveq 

#31.d0 

move 

#$!80.dl 

copycolors:move 

dl.(aO)+ 

move 

(al )+.(a0)+ 

addq 

#2.dl 

dbf 

dO.copycolors 

rts 



***************************************** 


fi 11: 


Füllen der Fläche 


move.w 

#$FFFF,BLTDDAT(a6) 

move.vv 

#$FFFF.BLTCDAT(a6) 

move.w 

#$FFFF.BLTBDAT(a6) 

move.w 

#$FFFF.BLTADAT(a6) 

clr.w 

BLTAMOD(a6) 


100 





clr.w 

BLTDMOD(a6) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.w 

#%0000000000001010.BLTCON 1 (a6) 

move.w 

#%()()()() 1001 1 1 1 10000.BL TC()N0(a6) 

move.l 

#1» ic.dO 

add.l 

#101 *40-2,d0 

move.l 

d0,BLTAPTH(a6) 

move.l 

dO.BLTDPTH(a6) 

move.w 

#6400+20,BLTSIZE(a6) 

WaitLoop3:btst 

#6.l)MACONR(a6) 

hne.s 

WaitLoop3 


Gefüllte Fläche als Maske tur das Muster verwenden 



clr.w 

BLTAMOD(a6) 


clr.w 

BLTBMOD(aö) 


clr.w 

BLTDMOD(aö) 


move.w 

#$FFFF.BLTAFWM(a6) 


move.w 

#$FFFF,BLTALWM(a6) 


clr.w 

BLTCON l(a6) 


move.w 

#%0000l 10111 OOOOOO.BLTCONO(a6) 


move.l 

#Muster,BLTAPTH(a6) 


move.l 

#Pic+40,BLTBPTH(a6) 


move.l 

#Pic+40.BLTDPTH(a6) 


move.w 

#6400+20,BLTSIZE(a6) 


rts 



****************************************************** 
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DrawLine: movem.l 


dygdxO: 


yOgylO: 


dygdxI: 


xOgx I: 


dygdx2: 


D0-D5/A4,-(A7) 

sub.w 0,D2 

bmi.s xOgxl 

sub.w DI.D3 

bmi.s yOgylO 

cmp.w D3.D2 

bmi.s dygdxO 

moveq #[4*4]!I,D4 

bra.s OkO 

exg D3,D2 

moveq #I,D4 

bra.s OkO 

neg.w D3 

cmp.w D3.D2 

bmi.s dygdx I 

moveq #[6*4]!1,D4 

bra.s OkO 

exg D3.D2 

moveq #[I*4]!1,D4 

bra.s OkO 

neg.w D2 

sub.w D1,D3 

bmi.s yOgyll 

cmp.w D3,D2 

bmi.s dygdx2 

moveq #[5*4]!I,D4 

bra.s OkO 

exg D3.D2 

moveq #[2*4]!I,D4 

bra.s OkO 
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yOgy 1 1: 

neg.w 

cmp.w 

bmi.s 

moveq 

bra.s 

D3 

D3,D2 
dygd\3 
#[7*4]! I,D4 

OkO 

dygdx3: 

exg 

moveq 

D3,D2 
#[3*4]! 1 ,D4 

OkO: 

Isl.w 

#2,D3 

WaitLoop4: 

btst 

bne.s 

#6.DMACONR(A6) 

WaitLoop4 


move.w 

D3,BLTBMOD(A6) 

Okl: 

add.w 

sub.w 

bpl.s 

or.b 

move.w 

or.w 

move.w 

D2.D2 

D2.D3 

Okl 

#%l 000000, D4 
D3,BLTAPTL(A6) 

#% 1 1 1 1000000000010, D4 
D4,BLTCON 1 (A6) 


sub.w 

move.w 

D2.D3 

D3,BLTAMOD(A6) 


move.w 

moveq 

move.l 

move.w 

move.w 

#$8000,BLTADAT(A6) 

#-l,D3 

D3,BLTAFWM(A6) 

#40,BLTCMOD(A6) 

#40,BLTDMOD(A6) 
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move.w 

and.w 

ror.w 

or.w 

move.w 

Isr.w 

mulu 

add.w 

lea.l 

move.I 

move.l 

Isl.w 

add.w 

move.w 

movem. 

rts 

^e^c^c^c^c^c^c^c^c^e9te)|e9|c3(c^c^; 


copperlist: 



dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

pH: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


D0.D3 
#$f,D3 
#4,D3 
#$bea,D3 

D3,BLTCONO(A6) 

#3,DO 
#40,DI 
Dl,DO 

(A4,D0.w),A4 
A4,BLTCPTH(A6) 
A4,BLTDPTH(A6) 

#5,D2 
#$42,D2 

D2,BLTSIZE(A6) 

I (A7)+,D0-D5/A4 


$008e,$3090 
$0090,$f8f0 
$0092,$0038 
$0094,$00d0 
$0102,$0000 
$0104,$0024 
$0108,$0000 
$010a,$0000 
$0100,$ 1200 
$00e0,$0000 
$00e2,$0000 
$0120,$0000 
$0122,$0000 
$0124,$0000 


**************** 
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dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

color: blk.w 

dc.w 

colortable: dc.w 


$0126,$0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$012e,$0000 
$0130,$0000 
$0132,$0000 
$0134,$0000 
$0136,$0000 
$0138,$0000 
$013a,$0000 
$013c,$0000 
$013e,$0000 
64,0 

$ffff,$fffe 

$0000,$0fff,$0fff,$0fff 


sprite: 

de. 

1 0 

Pic: 

blk.b 

8000,0 

Muster: 

blk.b 

4000,0 
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3.6. TIPS & TRICKS ZUM BLITTER 


Um das in den vorhergehenden Kapiteln erworbene Wissen zu 
vertiefen, aber auch um neue Anwendungsgebiete kennenzulernen, 
sind hier einige Beispiele zur Blitter-Programmierung aufgefiihrt. 


3.6.1. SINNVOLLE ÜBERBRÜCKUNG DER BLITTERWAITS 

Aus den vorherigen Kapiteln wissen wir bereits, daß man zwischen 
zwei Blitteroperationen immer warten muß, bis der Blitter seine 
Aufgabe beendet hat, bevor man ihn erneut starten kann. 

Hat man aber nun mehrere Aufgaben für den Blitter, so können 
mitunter längere Wartezeiten entstehen, in denen der Prozessor 
eigentlich nichts anderes tut, als auf das Signal des Blitters zu 
warten, damit er neu initialisiert werden kann. 

Sehen wir dazu die Skizze. 


Blitter—Start 


Blitter-Wait 


Blitter-Start 


Ist der Bereich, den der Blitter kopieren soll, etwas größer, so 
entsteht eine ziemlich lange Wartezeit für den Prozessor, der in der 
Warteschleife verharrt. Diese Zeit kann man aber auch sinnvoll ver¬ 
wenden, indem man in dieser Zeitspanne anfallende Berechnungen 
vom Prozessor erledigen läßt. Dadurch wird ebenfalls erheblich Zeit 
gespart, denn wenn die Berechnungen gleichzeitig mit dem Blitter 
erledigt werden, kann man nach Beendigung der Blitteraktion schon 
die fertigen Werte der Berechnungen für die nächste Blitteroperation 
verwenden (Siehe Abbildung uf der nächsten Seite). 
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Blitter—Start 


Berechnung 

Blitter-Wait 


Blitter-Start 


Werden sehr große Bereiche mit dem Blitter kopiert, wie zum 
Beispiel ein großes Bob, sodaß der Blit-Vorgang sehr viel Zeit in 
Anspruch nimmt, kann man während dieser Zeit auch aufwendigere 
Routinen, die unterschiedlich viel Zeit in Anspruch nehmen, an- 
springen. Dies wäre etwa die Abfrage für den Joystick, wobei je 
nach Hebelstellung ein Sprite über den Bildschirm bewegt wird. 


3.6.2. 5 PLANES MIT EINEM BLIT 

Im Kapitel ''Kopieren" haben wir den ersten Umgang mit dem 
Blitter kennengelernt und wissen jetzt, wie man ein Objekt auf den 
Bildschirm bringt. Besteht dieses Bob aber aus mehr als einer Bit¬ 
plane, so haben wir in unseren Beispielprogrammen jede Bitplane 
einzeln kopiert. Also für jede Bitplane den Blitter erneut gestartet. 
Das kostet natürlich viel Zeit. Besonders bei den folgenden Listings 
wird es notwendig sein, Rasterzeit einzusparen. Daher bedienen wir 
uns hier eines Tricks, um gleich alle 5 Bitplanes mit nur einem 
Bl itterstart kopieren zu können. 

Dazu sind aber einige nicht unwesentliche Vorbereitungen 
notwendig. Wir erinnern uns, die ims RAW-Format konvertierten 
Bitplanes liegen nacheinander im Speicher. Genauer gesagt: 
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1. Zeile der 1. Bitplane 

2. Zeile der I. Bitplane 


letzte Zeile der 1. Bitplane 

1. Zeile der 2. Bitplane 

2. Zeile der 2. Bitplane 


letzte Zeile der 2. Bitplane 

u.s.w. 

Liegen die Bitplanes, wie oben gezeigt im Speicher, so bleibt uns 
nichts anderes übrig, als jede Bitplane einzeln zu kopieren. Wenn 
wir die Bitplanes jedoch anders ordnen, können wir sie mit nur 
einem Blitterstart kopieren. Nämlich: 

1. Zeile der 1. Bitplane 
1. Zeile der 2. Bitplane 

1. Zeile der 3. Bitplane 

2. Zeile der I. Bitplane 
2. Zeile der 2. Bitplane 
2. Zeile der 3. Bitplane 


letzte Zeile der 1. Bitplane 
letzte Zeile der 2. Bitplane 
letzte Zeile der 3. Bitplane 

Sind die Bitplanes so geordnet, kann man sie mit nur einem Blit so 
verschieben, daß man, egal ob man 2 oder gar 6 Bitplanes verwen¬ 
det, nur einen Blitterstart benötigt. 
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Doch wie bringt man die Zeilen eines ins RAW-Format 
konvertierten Bildes nun in die gewünschte Reihenfolge? 

Entweder schreiben Sie ein eigenes Programm, das dies erledigt, 
oder Sie verwenden das dem Buch beigelegte Programm "Bitplane- 
Mixer". Dieser Bitplane-Mixer übernimmt die Arbeit des "Bitplane- 
Umschichtens" für Sie. Eine ausführliche Bedienungsanleitung 
finden Sie im Anhang. 

Wie man die fertig umgeschlichteten Bildplanes mit nur einem 
Bl itterstart kopiert, zeigt das abschließende Listing: 


5 Planes mit I Blit 
Nachzuladendes File: 


"raw/Bob32x32 5.con" auf "bob M 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltbpth 

= 

$4c 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 
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bltbdat 

bltadat 


$72 

$74 


s: bsr.s 

bsr.L 


move.l 

bsr.L 

loop: btst 

bne.s 

end: move.w 

moveq.l 

e: rts 

opening: move.w 
move.l 
move.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 


opening 

initcolors 


#$DFF000,a6 

Blit 

#6,$bfe00l 

loop 

#$c000,$dffD9a 

#0,d0 


#$4000,$dffö9a 

#copperl,$dffD84 

#pic,dO 

d0,pll+6 

dO 

dO.pl 1+2 
dO 

size(pc),d0 

d0,pl2+6 

dO 

d0,p!2+2 

dO 

size(pc),d0 

d0,pl3+6 

dO 

d0,pl3+2 

d() 

size(pc),dü 


;Routine anspringen 
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move 

svvap 

move 

swap 

add.l 

move 

swap 

move 

swap 

move.l 

lea 

moveq.l 

initsprites: swap 
move 
add.l 
swap 
move 
add.l 
dbf 
rts 


initcolors: lea 
lea 

moveq 

move 

copycolors:move 

move 

addq 

dbf 

rts 

copperl: 

dc.w 


d0,pl4+6 

dO 

d0,pl4+2 

dO 

size(pc),dO 

dO,pI5+6 

dO 

d0,pl5+2 

dO 

#sprite,dO 

spl+2(pc),a0 

#7,dl 

dO 

dO,(aO) 

#4,a0 

dO 

dO,(aO) 

#4,a0 

d 1 Jnitsprites 


color(pc),aO 
bob+640(pc),al 
#31,d0 
#$ I 80,d 1 

dl,(a0)+ 

(al)+,(a0)+ 

#2,dl 

dO,copycolors 


$0()8e,$3090 



dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

pll: dc.w 

dc.w 

pl2: dc.w 

dc.w 

pl3: dc.w 

dc.w 

pl4: dc.w 

dc.w 

pl5: dc.w 

dc.w 

spl: dc.w 

dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 

color: blk.w 

dc.w 


$0090,$f8fD 
$0092,$0038 
$0094,$00d0 
$0102,$0000 
$0104,$0024 
$0l08,$00a0 
$010a,$00a0 
$0I00,$5300 
$00e0,$0000 
$00e2,$0000 
$00e4,$0000 
$00e6,$0000 
$00e8,$0000 
$00ea,$0000 
$00ec,$0000 
$00ee.$0000 
$ 00f0,$0000 
$00f2,$0000 
$0120,$0000 
$0l22,$0000 
$0124,$0000 
$0I26,$0000 
$0128,$0000 
$0l2a,$0000 
$0l2c,$0000 
$012e,$0000 
$0I30,$0000 
$0I32,$0000 
$0134,$0000 
$0136,$0000 
$0138,$0000 
$0l3a,$0000 
$013c,$0000 
$0l3e,$0000 
64,0 

$ffff,$fffe 
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size: 

de. 

140 

,^c>|c%^c3(e^e^e^c9|e9|c^(9|e^(^e^c^c^e^c^c9|c^e^c^c^e^e9|e^c^e^c^c^c^c%9|c^c^(^c)te^c3|e3{e}(e^e 

ßlit: 

move.w 

clr.w 

#%00001001 1 1 1 1 OOOO.BLTCONO(A6) 
BLTCON I(a6) 

9 

clr.w 

BLTAMOD(aö) 


move.w 

#36,BLTDMOD(a6) 


move.w 

#$FFFF,BLTAFWM(a6) 


move.w 

#$FFFF,BLTALWM(a6) 


move.l 

#bob,BL I'APTH(a6) ;Adresse d. Bobs 


move.l 

#pic,d0 ;Adresse d. Bitplane 


add.l 

move.l 

#l28l6,d0 ;Position 

dO,BLTDPTH(a6) 


move.w 

# 10242,BLTSlZE(a6) 

rts 

sprite: 

dc.l 

0 

bob: 

blk.b 

704,0 

pic: 

blk.b 

40000.0 
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3.6.3. 5 PLANES MIT MASKE MIT EINEM BLIT 


Man kann sogar noch mehr Zeit sparen, wenn man nicht nur alle 5 
Bitplanes eines Objektes mit einem Bl itterstart kopiert, sondern falls 
notwendig, auch gleich die Maske mitkopiert. Die Bitplanes der 
Maske müssen natürlich auch so angeordnet sein, daß man Sie mit 
einem "Blit" im Speicher verschieben kann. Das heißt, sie müssen 
ebenfalls mit dem Bitplane-Mixer nebeneinander gelegt werden. 

Das untenstehende Beispielprogramm zeigt, wie man ein 32 mal 32 
großes Bob mit 5 Bitplanes und einer dazugehörigen Maske (eben¬ 
falls mit 5 Bitplanes) in ein 32 farbiges Hintergrundbild kopiert, 
ohne die hinter dem Bob liegende Grafik zu zerstören. 

Dieses Kopierverfahren wird in den nachfolgenden Listings (vor 
allem bei den Laufschriften) angewandt. Deshalb müssen Sie 
sämtliche Grafiken, die aus mehreren Planes bestehen, mit dem 
Bitplane-Mixer bearbeiten, damit die Bitplanes nebeneinander zu 
liegen kommen. 


5 Planes mit Maske mit einem Blit 

Nachzuladende Files: 

"raw/Hintergrund.con" auf "pic" 
"raw/Bob32x32_5.con" auf "bob" 
M raw/Bob32x32 5 msk.con” auf "msk" 


dmaconr = 

$02 

bltddat 

$00 

bltconO = 

$40 

bltconl = 

$42 

bltafwm = 

$44 

bltalwm = 

$46 

bltcpth 

$48 

bltbpth = 

$4c 




bltapth 

= 

bltaptl 

= 

bltdpth 

= 

bltsize 

= 

bltcmod 

= 

bltbmod 

= 

bltamod 

= 

bltdmod 

= 

bltcdat 

= 

bltbdat 

= 

bltadat 

= 

s: 

bsr.s 


bsr.L 



move.l 

bsr.L 

loop: 

btst 

bne.s 

end: 

move.w 

e: 

moveq.l 

rts 

opening: 

move.w 

move.l 

move.l 

move 

swap 

move 


swap 

add.l 


move 


$50 

$52 

$54 

$58 

$60 

$62 

$64 

$66 

$70 

$72 

$74 

opening 

initcolors 


#$DFF000,a6 

Blit 

#6,$bfe001 
loop 

#$c000,$dH'09a 

#0,d0 


#$4000,$dffö9a 

#copperl,$dffö84 

#pic,d0 

d0.pl I +6 

dO 

d0.pl 1 +2 
dO 

size(pc),d0 

d0,pl2+6 


;Routine anspringen 



initsprites: 


initcolors: 


swap 

dO 

move 

d0,pl2+2 

swap 

dO 

add.l 

size(pc),d() 

move 

d0.pl3+6 

swap 

dO 

move 

d0,pl3+2 

swap 

dO 

add.l 

size(pc),dO 

move 

d0,pl4+6 

swap 

dO 

move 

d0,pl4+2 

swap 

dO 

add.l 

size(pc),d() 

move 

d0,pl5+6 

swap 

dO 

move 

dO,pl5+2 

swap 

dO 

move.l 

#sprite,d() 

lea 

spl+2(pc),a0 

moveq.l 

#7,dl 

swap 

dO 

move 

d(),(aO) 

add.l 

#4,a0 

swap 

dO 

move 

dO,(aO) 

add.l 

#4,a0 

dbf 

dl,initsprites 

rts 



lea 

color(pe),a() 

lea 

pic+40000,al 

moveq 

#31 ,d() 

move 

#$ 180,d 1 
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copycolors:move 



move 


addq 


dbf 


rts 

copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

pll: 

dc.w 


dc.w 

pl2: 

dc.w 


dc.w 

P I3: 

dc.w 


dc.w 

pl4: 

dc.w 


dc.w 

pl5: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


dc.w' 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dl,(aO)+ 

(al )+,(aü)+ 

#2.d I 

dO.copycolors 


$008e,$3090 

$0090,$f8fl0 

$0092,$003 8 

$0094,$00d0 

$0102,$0000 

$0104,$002 I 

$0l08,$00a0 

$010a,$00a() 

$0100,$5300 

$ 00e0,$0000 

$ 00 e 2,$0000 

$00e4,$0000 

$00e6,$0000 

$00e8.$0000 

$00ea,$0000 

$00ec,$0000 

$00ee,$0000 

$ooro.$oooo 
$0012,$0000 
$0120,$0000 
$ 0122,$0000 
$0124,$0000 
$0126 . $0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$012c,$0000 
$0l30,$0000 
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dc.w $0I32.$0000 

dc.w $0I34,$0000 

dc.w $0136,$0000 

dc.w $0138,50000 

dc.w $013a,$0000 

dc.w $013c,$0000 

dc.w $0l3e,$0000 

color: blk.w 64,0 

dc.w $ffff,$fffe 

size: de. 140 

.******************************************* 

Blit: 

move.w #%000011 I I 11000010,BLTCON0(A6) 
clr.w BLTCON l(a6) 

clr.w BLTAMOD(aö) 

clr.w BLTBMOD(a6) 

move.w #36.BLTDMOD(a6) 

move.w #36.BLTCMOD(a6) 

move.w #$FFFF,BLTAFWM(a6) 
move.w #$FFFF,BLTALWM(a6) 

move.l #bob,Bl.TAPTH(a6) ;Adresse d. Bobs 

move.l #msk,BLTBPTH(a6) ;Adresse d. 

;Bobmaske 

:Adresse d. Bitplane 
:Position 
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move.l #pic,d0 
add.l #12816,d0 

move.l dO,BLTDPTH(a6) 
move.l dO.BLTCPTH(a6) 




move.w # 10242,BLTSIZE(a6) 


rts 


sprite: 

dc.l 

0 

bob: 

blk.b 

704.0 

msk: 

blk.b 

704,0 

pic: 

blk.b 

40064,0 


3.6.4. DOUBLEBUFFERING 

Wenn trotz aller Tricks und Optimierungen die Berechnungen eines 
Programmes zu lange dauern, sodaß sie sich mit der Bilddarstellung 
überschneiden würden, muß man auf eine andere Methode zurück- 
greifen, die es ermöglicht, das Bild trotzdem ruckeifrei darzustellen. 
Diese Technik nennt man Doublebuffering. 

Die Erklärung ist ziemlich einfach. Normalerweise verwendet man 
einen Bildschirmspeicher und ändert die Bitplanes bevor diese vom 
Rasterstrahl neu aufgebaut werden. Da dies aus zeitlichen Gründen 
bei längeren Berechnungen nicht mehr möglich ist, ohne daß das 
Bild flackert, verwendet man einfach einen zweiten, nicht sichtbaren 
Bildschirmspeicher (siehe Abbildung auf der nächsten Seite). 

Auf dem nicht sichtbaren Bildschirmspeicher kann man ungestört 
das Bild bearbeiten und aufbauen, da es ja vom Betrachter nicht 
wahrgenommen wird. Ist der Aufbau beendet, tauscht man einfach 
die beiden Bildschirmspeicher aus, sodaß der jetzt fertig aufgebaute 
im Vordergrund ist, also jetzt sichtbar ist. Der andere hingegen ist 
nicht sichtbar und wird neu aufgebaut. 








Durch diese Technik kann man auch komplizierte Bildschirm¬ 
aufbauten gestalten, ohne daß das fertige Bild in irgendeiner Form 
beeinträchtigt wird. 
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4. DAS AGA-CHIPSET 


Obwohl die Unterschiede zum älteren ECS Chipset ziemliche Fort¬ 
schritte, z.B.: in der Farbdarstellung bringen, ist die Program¬ 
mierung nicht allzu schwer. Es gibt lediglich einige neue Register, 
deren Funktion man kennen sollte, sowie einige Richtlinien, die man 
befolgen sollte, um die Kompatibilität zu wahren. 


ALLGEMEINE PROBLEME 

Leider ist auch das neue Chipset nicht ganz fehlerfrei. Ein wichtiger 
Hinweis, den Sie unbedingt beachten sollten, liegt gleich am Beginn 
der Copperliste versteckt: Wenn Sie eine Copperliste für AGA- 
Rechner schreiben, sollten Sie am Anfang auf jeden Fall mittels 
WAIT-Befehl auf Zeile 2 warten. 

Coplist: 

dc.w $0207,$fffe ;You have to wait at 

; least for Iine 2 to 
; avoid troubles. 

Tut man das nicht, kann es zu Problemen kommen. 


DEN RICHTIGEN SCREENMODUS ERKENNEN UND 
UMSCHALTEN 


Viele Spiele haben Probleme, wenn man bei den neuen Amigas eine 
andere Bildschirmauflösung als 320 x 200 oder 640 x 480 eingestellt 
hat. Besonders, wenn der Double Scan Modus aktiviert ist, läßt sich 
das eigene Programm nicht mehr starten. 

Um das Problem zu umgehen, sollte man am Anfang der eigenen 
Copperliste folgende Zeilen einfugen: 
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dc.w 

$0lc0,$0000 

;Clear all AGA special 
; infos to avoid troubles 

dc.w 

$01c2,$0000 

; with double scan 

dc.w 

$01c4,$0000 

; modes etc. 

dc.w 

$0lc6,$0000 

; Save old values out of 

dc.w 

$01c8,$0000 

; read registers to 
; restore after finishing 

dc.w 

$0lca,$0000 

; (if neccessary) 

dc.w 

$0lcc,$0000 


dc.w 

$01ce,$0000 


dc.w 

$01d0,$0000 


dc.w 

$0ld2,$0000 


dc.w 

$0ld4,$0000 


dc.w 

$01d6,$0000 


dc.w 

$01d8,$0000 


dc.w 

$0lda.$0000 


dc.w 

$0ldc,%0000000000100000 ;PAL 

dc.w 

$0lde,$0000 


dc.w 

$0le0,$0000 


dc.w 

$01 e2,$0000 


dc.w 

$0le4.$0000 


dc.w 

$0le6,$0000 


dc.w 

$0le8,$0000 


dc.w 

$0lea.$0000 


dc.w 

$0lec,$0000 


dc.w 

$01 ee.$0000 



Hier werden sämtliche Werte zurückgesetzt, damit ein Uinschalten 
auf die eigene Bildschirmauflösung gegeben ist. 
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INITIALISIEREN DES BILDSCHIRMMODUS, DER BIT¬ 
PLANES UND DER SPRITES 

Nun werden, wie schon in Band 1 ausführlich besprochen, die 
eigenen Werte für die Bildschirmauflösung in die dafür 
vorgesehenen Register eingetragen. Wie sich diese Werte berechnen 
lassen, können Sie in Band I nachlesen, wir gehen deshalb hier nicht 
näher darauf ein. 


dc.w 

$0lfc,$0000 

;Fetchmode off 

dc.w 

$0100,%0000000000010000 ;8 pitmaps. 

dc.w 

$0102.$0000 

;No double playfield 

dc.w 

$0104.% 100100 

:No double pf. priority 

* 

$0106 

;later at colorbanks 

dc.w 

$0l0c,$0000 

;No spritecols etc. 

dc.w 

$0108,$0000 

;modulo 0 

dc.w 

$010a,$0000 

;modulo 0 

dc.w 

$008e,$2c81 

;Displaywindow Start 

dc.w 

$0090,$f4c 1 

:Displaywindow stop 

dc.w 

$0092,$0038 

;Datafetch Start 

dc.w 

$0094.$00 DO 

;Datafetch stop 

Das Setzen der 

Bitplanes ist 

ebenfalls unverändert zur 

herkömmlichen Copperliste: 


* 8 Pitplanes Pointer 

* 


Bitmaps: dc.w 

$00e0,0 


dc.w 

$00e2.0 


dc.w 

$00e4.0 


dc.w 

$00e6.0 


dc.w 

$00e8,0 


dc.w 

$00ea,0 


dc.w 

$00ec,0 


dc.w 

$00ee,0 


dc.w 

$00(0.0 
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dc.w $000,0 

dc.w $00f4,0 

dc.w $00f6,0 

dc.w $oore,o 

dc.w $00fa,0 

dc.w $00fc,0 

dc.w $00fe,0 

Auch beim Initialisieren der Sprites hat sich nichts geändert: 

Sprite: dc.w $0I20,$0000 

dc.w $0122,$0000 

dc.w $0124,$0000 

dc.w $0I26,$0000 

dc.w $0128,$0000 

dc.w $0l2a,$0000 

dc.w $0I2c,$0000 

dc.w $012e,$0000 

dc.w $0130,50000 

dc.w $0l32,$0000 

dc.w $0134.S0000 

dc.w $0136,$0000 

dc.w $0138,$0000 

dc.w $0l3a,$0000 

dc.w $013c,$0000 

dc.w $013e,$0000 


FARBEN SETZEN IM NEUEN AGA CHIPSET 

Hier unterscheidet sich das neue vom alten Chipset gewaltig. Denn 
obwohl man jetzt 256 Farben gleichzeitig darstellen kann, gibt es 
nicht mehr Farbregister. Das Setzen der Farben an sich geschieht 
wie bisher. Jedoch ist beim AGA-Chipset ein neues Register 
hinzugekommen, Register $dff!06, das bestimmt, auf welche 
„Farbbank" zugegriffen werden soll. 
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Insgesamt gibt es acht Farbbanken in denen die Farben eingetragen 
werden müssen. Mit Register $dffl06 bestimmt man die Bank. In 
unserem Beispiel wurden alle Farben auf Null (=Farbe Schwarz) 


gesetzt). 


dc.w 

$0106,%0000000001000000 ;Bank0 

cols: dc.w 

$0180,50000 ;Ist 32 colors. MSB 

dc.w 

$0182,$0000 

dc.w 

$0184,$0000 

dc.w 

$0186,$0000 

dc.w 

$0188,$0000 

dc.w 

$018a,$0000 

dc.w 

$018c,$0000 

dc.w 

$018e,$0000 

dc.w 

$0190,$0000 

dc.w 

$0192,$0000 

dc.w 

$0194,$0000 

dc.w 

$0196,$0000 

dc.w 

$0198,$0000 

dc.w 

$019a,$0000 

dc.w 

$019c,$0000 

dc.w 

$019e,$0000 

dc.w 

$01 a0,$0000 

dc.w 

$01 a2,$0000 

dc.w 

$01 a4,$0000 

dc.w 

$01 a6,$0000 

dc.w 

$0la8,$0000 

dc.w 

$01 aa,$0000 

dc.w 

$01 ac,$0000 

dc.w 

$01 ae,$0000 

dc.w 

$01 b0,$0000 

dc.w 

$01 b2,$0000 

dc.w 

$01 b4,$0000 

dc.w 

$01 b6,$0000 

dc.w 

$01 b8,$0000 

dc.w 

$01 ba,$0000 
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dc.w 

$0lbc,$0000 

dc.w 

$01 be,$0fff 

dc.w 

$0106,%0000001001000000 

dc.w 

$0180,50000 ;2nd 32 

dc.w 

$0I82,$0000 

dc.w 

$0184,50000 

dc.w 

$0186,50000 

dc.w 

$0188,50000 

dc.w 

$018a,$0000 

dc.w 

$018c,$0000 

dc.w 

$018e,$0000 

dc.w 

$0190,50000 

dc.w 

$0192,50000 

dc.w 

$0194,50000 

dc.w 

$0196.50000 

dc.w 

$0198,50000 

dc.w 

$019a,$0000 

dc.w 

$019c,$0000 

dc.w 

$019e,$0000 

dc.w 

$0la0,$0000 

dc.w 

$01 a2,$0000 

dc.w 

$0la4,$0000 

dc.w 

$0la6,$0000 

dc.w 

$01 a8,$0000 

dc.w 

$01 aa.$0000 

dc.w 

$01 ac,$0000 

dc.w 

$01 ae,$0000 

dc.w 

$01 b0,$0000 

dc.w 

$01b2,$0000 

dc.w 

$01 b4,$0000 

dc.w 

$01 b6,$0000 

dc.w 

$01 b8,$0000 

dc.w 

$01 ba,$0000 

dc.w 

$01 bc,$0000 

dc.w 

$01 be,$0000 


;Bank 0 
colors, LSB 
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dc.w $0I06,%0010000001000000 ;Bank 1 

dc.w $0180,$0000 ; I st 32 colors, MSB 

dc.w $0! 82,$0000 

dc.w $0184.$0000 

dc.w $0186,$0000 

dc.w $0188,$0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0I92,$0000 

dc.w $0194,$0000 

dc.w $0I96.$0000 

dc.w $0198,$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $019e,$0000 

dc.w $0la0,$0000 

dc.w $0la2,$0000 

dc.w $01a4,$0000 

dc.w $01 a6,$0000 

dc.w $0la8,$0000 

dc.w $01aa,$0000 

dc.w $01ac,$0000 

dc.w $01 ae,$0000 

dc.w $01 b0,$0000 

dc.w $01 b2,$0000 

dc.w $01h4,$0000 

dc.w $01 h6,$0000 

dc.w $01 b8,$0000 

dc.w $0lba,$0000 

dc.w $01 bc,$0000 

dc.w $01 be,$0000 
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dc.vv 

$0106,%0010001001000000 

dc.w 

$0180,$0000 ;2nd 32 

dc.w 

$0182,$0000 

dc.w 

$0184,$0000 

dc.w 

$0186,$0000 

dc.w 

$0188,$0000 

dc.w 

$018a,$0000 

dc.w 

$018c,$0000 

dc.w 

$018e.$0000 

dc.w 

$0190,$0000 

dc.w 

$0192,$0000 

dc.w 

$0I94,$0000 

dc.w 

$0I%,$0000 

dc.w 

$0I98,$0000 

dc.w 

$0l9a.$0000 

dc.w 

$019c,$0000 

dc.w 

$019e,$0000 

dc.w 

$0la0,$0000 

dc.w 

$0la2,$0000 

dc.w 

$01a4,$0000 

dc.w 

$01a6,$0000 

dc.w 

$01 a8,$0000 

dc.w 

$01aa,$0000 

dc.w 

$01 ac,$0000 

dc.w 

$01 ae,$0000 

dc.w 

$0lh0,$0000 

dc.w 

$0lb2,$0000 

dc.w 

$01 b4,$0000 

dc.w 

$01 b6,$0000 

dc.w 

$01 b8,$0000 

dc.w 

$01 ba,$0000 

dc.w 

$01bc,$0000 

dc.w 

$01be,$0000 


;Bank 1 
colors, LSB 
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dc.w $0I06,%0100000001000000 ;Bank2 

dc.w $0180,$0000 ; I st 32 colors, MSB 

dc.w $0182,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0l88,$0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0192,$0000 

dc.w $0194,$0000 

dc.w $0196,$0000 

dc.w $0198,$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $019e,$0000 

dc.w $01 a0,$0000 

dc.w $01a2,$0000 

dc.w $01a4,$0000 

dc.w $01 a6,$0000 

dc.w $01 a8,$0000 

dc.w $01 aa.$0000 

dc.w $01 ac,$0000 

dc.w $0lae,$0000 

dc.w $01 b0.$0000 

dc.w $01 b2,$0000 

dc.w $01 b4,$0000 

dc.w $01 b6,$0000 

dc.w $01 b8,$0000 

dc.w $01 ba,$0000 

dc.w $01 hc,$0000 

dc.w $01 be,$0000 
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dc.w $0106,%0100001001000000 ;Bank2 

dc.w $0180,$0000 ;2nd 32 colors, LSB 

dc.w $0182,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188,$0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0I92,$0000 

dc.w $0l94,$0000 

dc.w $0I96,$0000 

dc.w $0!98,$0000 

dc.w $0l9a,$0000 

dc.w $0l9c,$0000 

dc.w $019e,$0000 

dc.w $0la0,$0000 

dc.w $0la2,$0000 

dc.w $0la4,$0000 

dc.w $01a6,$0000 

dc.w $01a8,$0000 

dc.w $01aa,$0000 

dc.w $01ac,$0000 

dc.w $0lae,$0000 

dc.w $01 b0,$0000 

dc.w $01 b2,$0000 

dc.w $0lb4,$0000 

dc.w $01 b6,$0000 

dc.w $01 b8,$0000 

dc.w $0 Iba,$0000 

dc.w $01bc,$0000 

dc.w $01be,$0000 
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dc.w $0106,%01 10000001000000 ;Bank 3 

dc.w $0180,$0000 ; 1 st 32 colors. MSB 

dc.w $0182,$0000 

dc.w $01 84,$0000 

dc.w $0186,$0000 

dc.w $018 8, $0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0192,$0000 

dc.w $0104,$0000 

dc.w $0196,$0000 

dc.w $0I98,$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $019e,$0000 

dc.w $01 a0,$0000 

dc.w $01 a2.$0000 

dc.w $01 a4,$0000 

dc.w $01 a6,$0000 

dc.w $01 a8,$0000 

dc.w $01 aa,$0000 

dc.w $01 ac,$0000 

dc.w $01 ae,$0000 

dc.w $01 b0,$0000 

dc.w $01b2,$0000 

dc.w $01 b4,$0000 

dc.w $01 b6,$0000 

dc.w $01 b8,$0000 

dc.w $01 ba,$0000 

dc.w $01 bc,$0000 

dc.w $01 be,$0000 
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dc.w $0106,%01 10001001000000 ;Bank 3 

dc.w $0I80,$0000 ;2nd 32 colors, LSB 

dc.w $0182,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188.$0000 

dc.w $018a,$0000 

dc.w $018c.$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0192,$0000 

dc.w $0194.$0000 

dc.w $0196,$0000 

dc.w $0I98,$0000 

dc.w $019a.$0000 

dc.w $019c,$0000 

dc.w $019e.$0000 

dc.w $01 a0.$0000 

dc.w $01 a2.$0000 

dc.w $01 a4.$0000 

dc.w $01 a6.$0000 

dc.w $01 a8,$0000 

dc.w $01 aa.$0000 

dc.w $0lac.$0000 

dc.w $01 ae.$0000 

dc.w $01 b0,$0000 

dc.w $0lb2,$0000 

dc.w $01 b4.$0000 

dc.w $01 b6.$0000 

dc.w $01 b8,$0000 

dc.w $01 ba.$0000 

dc.w $0lbc,$0000 

dc.w $01 be,$0000 
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dc.w $0106,% 1000000001000000 ;Bank 4 

dc.w $0180,$0000 ; I st 32 colors, MSB 

dc.w $0I82,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188.$0000 

dc.w $018a.$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190.$0000 

dc.w $0192,$0000 

dc.w $0194,$0000 

dc.w $0196,$0000 

dc.w $0198,$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $0l9e.$0000 

dc.w $01 a0,$0000 

dc.w $01 a2.$0000 

dc.w $01 a4.$0000 

dc.w $01 a6,$0000 

dc.w $01 a8,$0000 

dc.w $01 aa,$0000 

dc.w $01 ac,$0000 

dc.w $01 ae,$0000 

dc.w $01 b0,$0000 

dc.w $01 b2,$0000 

dc.w $01 h4,$0000 

dc.w $0166,$0000 

dc.w $0168,$0000 

dc.w $01 ba,$0000 

dc.w $01bc,$0000 

dc.w $01 bc,$0000 



dc.w $0106,% 1000001001000000 ;Bank4 

dc.w $0180,$0000 ;2nd 32 colors, LSB 

dc.w $0182,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188,$0000 

dc.w $018a,$0000 

dc.w $0l8c,$0000 

dc.w $0l8e,$0000 

dc.w $0190,$0000 

dc.w $0192,$0000 

dc.w $0194,$0000 

dc.w $0I96,$0000 

dc.w $0I98,$0000 

dc.w $0l9a,$0000 

dc.w $019c,$0000 

dc.w $019e,$0000 

dc.w $01 a0,$0000 

dc.w $0la2,$0000 

dc.w $01 a4,$0000 

dc.w $0la6,$0000 

dc.w $0la8,$0000 

dc.w $0laa,$0000 

dc.w $01ac,$0000 

dc.w $0lae,$0000 

dc.w $01b0,$0000 

dc.w $01 b2,$0000 

dc.w $01 b4,$0000 

dc.w $01 b6,$0000 

dc.w $01 b8,$0000 

dc.w $01 ba,$0000 

dc.w $01 bc,$0000 

dc.w $0lbe,$0000 
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dc.w $0106,%!010000001000000 ;Bank5 

dc.w $0180,50000 ; 1 st 32 colors, MSB 

dc.w $0182,$0000 

dc.w $0184,50000 

dc.w $0186,50000 

dc.w $0188,50000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,50000 

dc.w $0192,50000 

dc.w $0194,50000 

dc.w $0196,50000 

dc.w $0198,$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $0l9e,$0000 

dc.w $01 a0,$0000 

dc.w $01 a2,$0000 

dc.w $0la4,$0000 

dc.w $01 a6,$0000 

dc.w $01a8,$0000 

dc.w $01aa,$0000 

dc.w $01ac,$0000 

dc.w $0lae,$0000 

dc.w $01 b0,$0000 

dc.w $01 b2,$0000 

dc.w $0lb4,$0000 

dc.w $01b6,$0000 

dc.w $0168,50000 

dc.w $016a,$0000 

dc.w $016c,$0000 

dc.w $016e,$0000 
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dc.w 

$0106,%1010001001000000 

dc.w 

$0180,$0000 ;2nd 32 

dc.w 

$0182,$0000 

dc.w 

$0I84,$0000 

dc.w 

$0186,$0000 

dc.w 

$0I88,$0000 

dc.w 

$018a,$0000 

dc.w 

$018c,$0000 

dc.w 

$018e,$0000 

dc.w 

$0I90,$0000 

dc.w 

$0l92,$0000 

dc.w 

$0I94,$0000 

dc.w 

$0I96,$0000 

dc.w 

$0198,$0000 

dc.w 

$019a,$0000 

dc.w 

$019c,$0000 

dc.w 

$019e,$0000 

dc.w 

$01 a0,$0000 

dc.w 

$01 a2,$0000 

dc.w 

$0la4,$0000 

dc.w 

$0la6,$0000 

dc.w 

$01a8,$0000 

dc.w 

$0laa,$0000 

dc.w 

$0lac,$0000 

dc.w 

$01ae,$0000 

dc.w 

$0lb0,$0000 

dc.w 

$01b2,$0000 

dc.w 

$01 b4,$0000 

dc.w 

$0Ib6,$0000 

dc.w 

$01 b8,$0000 

dc.w 

$0lba,$0000 

dc.w 

$0lbc,$0000 

dc.w 

$01 be,$0000 


;Bank 5 
colors, LSB 
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dc.w $0106,%I100000001000000 ;Bank 6 

dc.w $0180,$0000 ;Ist 32 colors, MSB 

dc.w $0182,$0000 

dc.w $0184.$0000 

dc.w $0186,$0000 

dc.w $0188,$0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,$0000 

dc.w $0l92,$0000 

dc.w $0I94,$0000 

dc.w $0196,$0000 

dc.w $0198.$0000 

dc.w $019a,$0000 

dc.w $019c,$0000 

dc.w $0l9e,$0000 

dc.w $01 a0,$0000 

dc.w $0la2,$0000 

dc.w $01 a4,$0000 

dc.w $01 a6,$0000 

dc.w $0la8,$0000 

dc.w $0laa,$0000 

dc.w $0lac,$0000 

dc.w $0lae,$0000 

dc.w $01b0,$0000 

dc.w $01 b2,$0000 

dc.w $01 b4,$0000 

dc.w $01 b6,$0000 

dc.w $01 b8,$0000 

dc.w $01 ba,$0000 

dc.w $01 bc,$0000 

dc.w $0lbe,$0000 
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dc.w 

$0106,% 1100001001000000 

dc.w 

$0I80,$0000 ;2nd 32 

dc.w 

$0182,$0000 

dc.w 

$0184,$0000 

dc.w 

$0186,$0000 

dc.w 

$0188,$0000 

dc.w 

$018a,$0000 

dc.w 

$018c,$0000 

dc.w 

$018e,$0000 

dc.w 

$0190,$0000 

dc.w 

$0I92,$0000 

dc.w 

$0194,$0000 

dc.w 

$0196,$0000 

dc.w 

$0198,$0000 

dc.w 

$019a,$0000 

dc.w 

$0l9c,$0000 

dc.w 

$0l9e,$0000 

dc.w 

$01 a0,$0000 

dc.w 

$01a2,$0000 

dc.w 

$01 a4,$0000 

dc.w 

$01 a6,$0000 

dc.w 

$0la8,$0000 

dc.w 

$01 aa,$0000 

dc.w 

$01ac,$0000 

dc.w 

$01ae,$0000 

dc.w 

$01 b0,$0000 

dc.w 

$01b2,$0000 

dc.w 

$01 b4,$0000 

dc.w 

$01 b6,$0000 

dc.w 

$01 b8,$0000 

dc.w 

$01 ba,$0000 

dc.w 

$0lbc,$0000 

dc.w 

$01 be,$0000 


;Bank 6 
colors, LSB 
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dc.w $0106,% II10000001000000 ;Bank 7 

dc.w $0180.S0000 ; 1 st 32 colors, MSB 

dc.w $0I82,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188,$0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $018e,$0000 

dc.w $0190,50000 

dc.w $0192,50000 

dc.w $0194,50000 

dc.w $0196,50000 

dc.w $019 8, $0000 

dc.w $0l9a,$0000 

dc.w $019c,$0000 

dc.w $019e,$0000 

dc.w $01 a0,$0000 

dc.w $0la2,$0000 

dc.w $01 a4,$0000 

dc.w $01 a6,$0000 

dc.w $01a8,$0000 

dc.w $01aa,$0000 

dc.w $0lac,$0000 

dc.w $0lae,$0000 

dc.w $01 b0,$0000 

dc.w $01 b2,$0000 

dc.w $01 b4,$0000 

dc.w $0lb6,$0000 

dc.w $0168,$0000 

dc.w $016a,$0000 

dc.w $01 bc,$0000 

dc.w $01 be,$0000 
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dc.w $0106,% 1110001001000000 ;Bank7 

dc.w $0180,$0000 ;2nd 32 colors, LSB 

dc.w $0182,$0000 

dc.w $0184,$0000 

dc.w $0186,$0000 

dc.w $0188.S0000 

dc.w $018a,$0000 

dc.w $018c,$0000 

dc.w $0l8e,$0000 

dc.w $0190,$0000 

dc.w $0192,$0000 

dc.w $0I94,$0000 

dc.w $0I96,$0000 

dc.w $0I98,$0000 

dc.w $019a,$0000 

dc.w $0l9c,$0000 

dc.w $0l9e,$0000 

dc.w $01 a0,$0000 

dc.w $01 a2,$0000 

dc.w $0la4,$0000 

dc.w $01 a6,$0000 

dc.w $0la8,$0000 

dc.w $0laa,$0000 

dc.w $01ac,$0000 

dc.w $01ae,$0000 

dc.w $01 b0,$0000 

dc.w $0lb2,$0000 

dc.w $0lb4,$0000 

dc.w $0lb6,$0000 

dc.w $01 b8,$0000 

dc.w $01 ba,$0000 

dc.w $0lbc,$0000 

dc.w $0lbe,$0000 
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BEENDEN DER COPPERLISTE 


Den Abschluß unserer Copperliste bildet der Wait-Befehl auf die 
letzte NTSC Linie. 

dc.w $fft)7,$fffe ;Wait for last NTSC Iine 

NoCop: dc.w $ffff,$fffe ;End of copperl ist 

Mit der oben beschriebenen Copperliste sollte es nun keine 
Probleme geben, wenn Sie Ihre Programme auch für die neuen 
Amigas adaptieren wollen. 
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5. PRAKTISCHE PROGRAMMBEISPIELE 

5.1. LAUFSCHRIFTEN 

Im folgenden Kapitel wollen wir anhand einiger praktischer Bei¬ 
spiele die Funktionsweise der einzelnen Bausteine (z.B.: Blitter, 
Copper,...) näher beleuchten. Sehr gut kann man den Einsatz anhand 
von Laufschriften demonstrieren. Einige ausgewählte Beispiele zei¬ 
gen, daß selbst schwierige Demos oft gar nicht so schwer zu reali¬ 
sieren sind. 


5.1.1. SINUS-LAUFSCHRIFT 

Als nächstes wollen wir uns einer speziellen Laufschrift-Art 
widmen, die in diversen Intros und Demos häufig verwendet wird, 
und der man nachsagt, daß sie ungemein schwer zu programmieren 
sei. Daß dem nicht so ist, wollen wir auf den folgenden Seiten 
beweisen. 

Die Schwierigkeit bei dieser Laufschrift liegt eigentlich nicht in der 
Art der Programmierung des Blitters, sondern eher in der 
Berechnung der Darstellung. Wie das zu verstehen ist, werden wir 
noch näher erläutern. Sehen wir uns doch vorher die 
Aufgabenstellung an. Es soll eine Laufschrift von rechts nach links 
über den Bildschirm gescrollt werden, wobei sich die Buchstaben 
einer Sinuskurve anschmiegen (siehe Abbildung). 
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Im Prinzip funktioniert das so: Zuerst lassen wir eine ganz normale 
Laufschrift durch den Speicher wandern, nur mit dem Unterschied, 
daß der Betrachter diese nicht sieht. 

Diese nicht sichtbare durch den Speicher wandernde Laufschrift 
wird durch ein kurzes Unterprogramm auf der sichtbaren Bitplane an 
eine Sinuskurve angeschmiegt. 

Nun die einzelnen Schritte, die für das Programm nötig sind, in einer 
kurzen Übersicht: 

1) Bildschirm löschen. 

2) Sinus darstellen. 

3) Einfache Laufschrift scrollen und neuen Buchstaben darstellen. 

Der schwierigste Teil hierbei ist die Routine, die die einfache 
Laufschrift an die Sinuskurve angleicht. 

Dazu verwenden wir zwei Quellen, A und B, wobei in A die Adresse 
der einfachen Laufschrift eingetragen wird, und in B die Adresse der 
Zielbitplane verwendet wird, die auch im Zielregister D steht. Die 
Zielbitplane muß deshalb als Quelle eingetragen werden, damit der 
Hintergrund nicht zerstört wird. Denn jeder Buchstabe wird 
spaltenweise (siehe unten stehende Abbildung) auf die Plane 
geblittet. Dadurch würde der Hintergrund links und rechts von der 
Spalte im Bereich des zu Mittenden Words zerstört werden. Um dies 
zu verhindern, wird der Hintergrund ebenfalls als Quelle initialisiert 
und mitkopiert. 

Die Abbildung auf der nächsten Seite zeigt, wie ein Buchstabe mit 
Hilfe der Maske in Spalten zerlegt wird und somit verschoben 
werden kann. 
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Ergebnis: rf 



Mask: 

%oooooooooooooooi 


Mask: 

%ooooooooooooooio 


Mask: 

%oooooooooooooioo 


u.s.w. 


Das unten stehende Programmstück erledigt die Aufteilung der 
einzelnen Buchstaben in Spalten und weist jeder Spalte die exakte 
Position auf der Bitplane zu: 


; Sinus blitten 

move.w #48,BLTAMOD(a6) 
move.w #38,BLTBMOD(a6) 
move.w #38,BLTDMOD(a6) 
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move.w 

#%00001 10111111100,BLTCON0(a6) 


clr.w 

BLTCONl(a6) 


move.w 

#$FFFF,BLTALWM(a6) 


moveq 

#38,d4 ;wort-positionszähler 


lea 

sinus(pc),a2 


adda.l 

Sinc,a2 


move.l 

#$DFF044,a0 


move.l 

#$DFF058,al 


move.l 

#$DFF050,a3 


move.l 

#$DFF04c,a4 


move.l 

#$DFF054,a6 


move.l 

#pic,d2 


move.l 

#Space+40,d0 


move.w 

#l025,d5 ;BLTSIZE 


move.w 

#l,d6 

; 

add.l 

#4,Sinc 


cmp.l 

#504,Sinc 


blt.s 

NoEnd2 


clr.l 

Sine 

NoEnd2: 



’ 

moveq 

#% 1 ,d3 ; Maske 

NoEnd3: 



•) 

move.l 

d2,dl 


add.w 

d4,dl 


add.w 

(a2)+,dl 

BS: 

btst 

#6,$dff002 


bne.s 

BS 

1 

move.w 

d3,(a0) 
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move.l 

d0.(a3) 


move.l 

dl,(a4) 


move.l 

d 1 ,(a6) 


move.w 

d5,(al) 


rol.w 

#l,d3 

;Pixelanz. 

cmp.w 

d6,d3 

; 16/Pixelanz. 

bne.s 

NoEnd3 


subq.w 

#2.d0 


subq.w 

#2.d4 

;Linker Rand 

bge.s 

NoEnd3 



rts 

Zuerst werden die notwendigen Modulo-Werte initialisiert, sowie 
Quelle A, B und das Ziel D angewählt. Weiterhin wird die 
Miniterm-Kombination eingetragen. In diesem Fall lautet die 
Kombination %III1II()0, da das Ergebnis I sein soll, wenn 
entweder A oder B gleich I ist (A = 1 oder B = 1 -> Ergebnis = 1). 

Die Sinus-Daten, sowie diejenigen Register, welche innerhalb der 
Schleife verwendet werden, werden in Adressregister geschrieben, 
da der Zugriff auf ein Adressregister schneller ist, als direkt auf die 
Hardwareregister. Dies hilft mit, Zeit zu sparen. 

Im Label Space ist die einfache Laufschrift enthalten, die unsichtbar 
durch den Speicher wandert. Von dort holen wir das aktuelle 
Zeichen und Mitten es spaltenweise in den sichtbaren Bereich. Um 
jedes einzelne Zeichen in die wie oben erläuterten Spalten zu zer¬ 
legen, verwenden wir das Register BLTAFWM, welches am Anfang 
der Routine auf I (entspricht der ersten Spalte) gesetzt wird. Im 
Laufe der Schleife wird dieser Einser um ein Bit nach links ver¬ 
schoben. Diese Schleife wird insgesamt 16 Mal durchlaufen, bis alle 
Spalten fertig geblittet wurden. 
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Die Y-Verschiebung der Spalten wird durch die Werte, die unter 
dem Label Sinus gespeichert sind, erreicht. 

Hier wurde ebenfalls mit einem kleinen Trick gearbeitet: Normaler¬ 
weise enthält diese Sinustabelle einfache Sinus-Werte, wie man sie 
mittels eines kurzen Basicprogramms berechnen kann. Diesen Sinus- 
Werten müssen während des Programmablaufes die richtigen Bild¬ 
schirmpositionen zugeordnet werden - das kostet aber viel wertvolle 
Rechenzeit. Daher ordnen wir die Bildschirmpositionen dieser 
Tabelle schon am Anfang des Programms mittels der folgenden 
Routine zu. 


SinusChange: 


lea 

sinus(pc),a2 

lea 

sinus(pc),a3 

* 

move.l 

#l007,d3 

NoEnd4: 


move.w 

(a2)+,d0 

mul u 

#40,d0 

move.w 

#5280,d 1 

sub.w 

dO.dl 

move.w 

d 1 ,(a3)+ 

dbf 

d3,NoEnd4 

rts 



Die auf der Beispiel-Diskette enthaltenen Sinus-Werte werden in 
unserem Listing viermal hintereinander benötigt, daher müssen sie 
auch viermal eingelesen werden. 
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Sinus-Laufschrift 


dmaconr 

bltddat 

bltconO 

bltcon 1 

bltafwm 

bltalwm 

bltcpth 

bltapth 

bltaptl 

bltdpth 

bltsize 

bltcmod 

bltbmod 

bl tarn od 

bltdmod 

bltcdat 

bltbdat 

bltadat 


Nachzuladende Files: 

"dtT):raw/16x 16 I pl.raw" 

"dfO:SinusDat.tab" 

"dfO:SinusDat.tab" 

"dfl):SinusDat.tab" 

"dfOiSinusDat.tab" 


auf "font" 
auf "sinus" 
auf "sinus"+504 
auf "sinus"+l008 
auf ,, sinus ,, + l5l2 


= 

$02 

= 

$00 

= 

$40 

- 

$42 

= 

$44 

= 

$46 

= 

$48 

= 

$50 

= 

$52 

= 

$54 

= 

$58 

= 

$60 

= 

$62 

= 

$64 

= 

$66 

= 

$70 

= 

$72 

= 

$74 

bsr.L 

opening 

bsr.L 

initcolors 

bsr.L 

SinusChange 

lea 

Text(pc),a5 

move.l 

a5.Store 

niove.b 

#0.Counter 
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move.l 


loop: move.l 

cmp.l 
bne.s 


move.l 

bsr.L 

move.l 

bsr.L 


btst 

bne.s 


end: 

move.w 

moveq 

e: 

rts 

opening: 

move.w 

move.l 

move.l 

move 

swap 

move 


swap 


move.l 

lea 

moveq. 

initsprites: swap 
move 

add.l 


#0,Sinc 

$dff004,d0 

#$0d000,d0 

loop 

#$dffö00,a6 

BlitSinus 

#$dff000,a6 

Scroll 

#6,$bfe00l 

loop 

#$c000,$dff09a 

#0.d0 


#$4000,$dff09a 

#copperl.$dff084 

#pic,dO 

dO,pl I +6 

dO 

dO.pl 1+2 
dO 

#sprite,dü 
spl+2(pc),a0 
I #7,dl 
dO 

d0,(a0) 

#4,a0 
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swap 

move 

add.l 

dbf 

rts 

initcolors: lea 
lea 

moveq 

move 

copycolors: 

move 

move 

addq 

dbf 


rts 


colortable: dc.w 

copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

pll: 

dc.w 


dc.w 

pl2: 

dc.w 


dc.w 

P I3: 

dc.w 


dc.w 

p!4: 

dc.w 


dO 

dO,(aO) 

#4,a0 

d I. i n itsprites 


color(pc),aO 
colortable(pc),a I 
#l,dO 
#$l80,dl 

d I,(a0)+ 

(al )+,(a0)+ 

#2,dl 

dO,copycolors 


$0000,$0fff 

$008e,$3090 

$0090.$f8fl(> 

$0092,$003 8 

$0094,$00d0 

$ 0102,$0000 

$0104,$0024 

$0108.$0000 

$010a,$0000 

$0100,$ 1200 

$00e0,$0000 

$00e2.$0000 

$00e4,$0000 

$00e6,$0000 

$00e8,$0000 

$00ea,$0000 

$00ec,$0000 
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dc.w 

$00ee,$0000 

pl5: 

dc.w 

$00fö,$0000 


dc.w 

$00f2,$0000 

pl6: 

dc.w 

$00f4,$0000 


dc.w 

$00f6,$0000 

spl: 

dc.w 

$0120,50000 


dc.w 

$0l22,$0000 


dc.w 

$0I24,$0000 


dc.w 

$0126,$0000 


dc.w 

$0128,$0000 


dc.w 

$0l2a,$0000 


dc.w 

$0l2c,$0000 


dc.w 

$0l2e,$0000 


dc.w 

$0130.$0000 


dc.w 

$0I32,$0000 


dc.w 

$0134,$0000 


dc.w 

$0136,50000 


dc.w 

$0138,50000 


dc.w 

$0l3a,$0000 


dc.w 

$0l3c,$0000 


dc.w 

$013e,$0000 

color: 

blk.l 

4,0 


dc.w 

$ffff,$fffe 

sprite: 

dc.l 

0 

size: 

dc.l 

8000 


***************************** 


Scroll: btst #6,$dff002 

bne.s Scroll 

move.w #% 1111100111110000,BLTCON0(a6) 

clr.w BLTCON I(a6) 
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move.w 

#4,BLTAMOD(a6) 

move.w 

#4,BLTDMOD(a6) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.l 

#Space,BLTDPTH(a6) 

move.l 

#Space+2,BLTAPTH(a6) 

move.w 

# 1047,BLTSIZE(a6) 


Neuer Buchstabe wird auf Plaue kopiert 



add.b 

cmp.b 

bne.s 

clr.b 

# 1 ,Counter 

#l6,Counter 

NoLetter 

Counter 


move.l 

move.b 

move.l 

Store,a5 
(a5)+,d 1 
a5,Store 


cmp.b 

bne.s 

move.l 

rts 

#"o”,dl 
NoEnd 
#1'ext, störe 

NoEnd: 

sub.b 

ext 

bra.s 

#32,dl 

dl 

CopyLetter 

NoLetter: 


ils 


.**************** ******************** 

CopyLetter: 

btst #6,$dffö02 

bne.s CopyLetter 
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move.w 

clr.w 

move.w 

move.w 

move.l 

asl.w 

lea 

move.l 

add.l 

move.l 

move.l 

* 

move.w 

rts 

BlitSinus: btst 
bne.s 

; Löschen 

clr.w 

clr.w 

move.w 

clr.w 

clr.w 

clr.w 

9 

move.w 

move.w 


#%0000I001111 IOOOO,BLTCONO(a6) 
BLTCON l(a6) 

#38,BLTAMOD(a6) 

#48,BLTDMOD(a6) 


#Font,dO 


#2,dl 

Letter(pc),a3 
(a3,dl ,w),d2 
d2,d0 

dO,BLTAPTH(a6) 
#Space+42,BLTDPTH(a6) 
# 1025,BLTSIZE(a6) 


#6,$dffö02 

BlitSinus 


BLTDDAT(a6) 

BLTADAT(aö) 

#%00000001 11 I 10000,BLTCON0(a6) 
BLTCON l(a6) 

BLTAMOD(a6) 

BLTDMOD(aö) 

#$FFFF,BLTAFWM(a6) 

#$FFFF.BLTALWM(a6) 
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move.l 

move.l 

move.w 

WaitLoop: btst 
bne.s 

; Sinus blitten 

move.w 

move.w 

move.w 

move.w 

clr.w 

move.w 

moveq 

lea 

adda.l 

move.l 

move.l 

move.l 

move.l 

move.l 

move.l 

move.l 

move.w 

move.w 

add.l 

cmp.l 

blt.s 


#pic,BLTAPTH(a6) 

#pic+1680,BLTDPTH(a6) 

#6804,BLTSIZE(a6) 

#6,DMACONR(a6) 

WaitLoop 


#48,BLTAMOD(a6) 

#38,BLTBMOD(a6) 

#38,BLTDMOD(a6) 

#%0000l 101 11111 10(),BLTCON0(a6) 
BLTCON I(a6) 

#$FFFF.BLTALWM(a6) 

#38,d4 ;wort-positionszähler 

sinus(pe),a2 

Sine,a2 


#$DFF044,a0 

#$DFF058,al 

#$DFF050,a3 

#$DFF04c,a4 

#$DFF054,a6 


#pic,d2 
#Space+40,d0 
#!025,d5 ;BLTSIZE 
#l,d6 


#4,Sine 
#504,Sine 
NoEnd2 
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clr.l 

Sine 


NoEnd2: 





moveq 

#% 1 ,d3 

; Maske 

NoEnd3: 





move.l 

d2,dl 



add.w 

d4,dl 



add.w 

(a2)+,dl 


BS: 

btst 

#6,$dff002 



bne.s 

BS 



move.w 

d3,(a0) 



move.l 

d0.(a3) 



move.l 

dl,(a4) 



move.l 

dl,(a6) 



move.w 

d5,(al) 



rol.w 

# 1 ,d3 

;Pixelanz. 


cmp.w 

d6,d3 

;I6/Pixelanz. 


bne.s 

NoEnd3 



subq.w 

#2,d0 



subq.w 

#2,d4 

;Linker Rand 


bge.s 

NoEnd3 



rts 



.**************** ****** ******* 
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SinusChange: 

lea 

siiuis(pc),a2 

lea 

sinus(pc),a3 

move.l 

#1007,d3 

NoEnd4: 

move.w 

(a2)+,d0 

mul u 

#40,d0 

move.w 

#5280,dl 

sub.w 

d0,d 1 

move.w 

d 1 ,(a3)+ 

dbf 

d3.NoEnd4 


rts 

,^(3):^c^e^c^c^c^c^c3|e^e^c^e^c^c^^e^c^e^e3|c^e3|()|c^c3|c^e^e9ie 

Counter: 

Sine: 

Store: 

Text: 

dc.b " o" 
even 

Font: 

Space 
Sinus: 

Letter: 

de.I 0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38 
dc.l 640,642,644,646,648,650,652,654,656,658,660,662,664,666 
de.I 668,670,672,674,676,678 

dc.l 1280.1282.1284,1286,1288.1290,1292,1294,1296.1298 
dc.l 1300,1302,1304,1306,1308,1310,1312,1314,1316,1318 

pic: blk.b 8000,0 


blk.b 2000,0 
blk.b 1200,0 
blk.b 2016,0 


dc.l 0 
dc.l 0 
dc.l 0 

dc.b "SINUS - LAUFSCHRIFT !!!" 
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5.1.2. LAUFSCHRIFT NACH KOORDINATENTABELLE 


Die nächste Laufschrift wirkt ebenfalls sehr überraschend auf den 
Betrachter. Er glaubt zuerst, eine einfache Laufschrift, die sich von 
rechts nach links bewegt, vor sich zu haben. Aber dem ist nicht so, 
da die Buchstaben, wenn sie fast beim linken Rand angekommen 
sind, eine große Kurve nach rechts drehen, um nach einer großen 
Kreisbewegung wieder weiter links unten zu verschwinden. 



Einen kleinen Nachteil hat diese Art der Laufschriftgestaltung 
schon: Dadurch, daß jeder einzelne Buchstabe als eigenes Bob be¬ 
handelt werden muß, ist es leider bei so vielen Buchstaben nicht 
möglich, einen 32 farbigen Font darzustellen. Aber um etwas Farbe 
ins Spiel zu bringen, könnte man in Flintergrund eine Farb-Copper- 
liste erstellen (siehe dazu Anhang 7.5. Anregungen). 

Das Prinzip dieser Laufschrift ist ziemlich einfach: Man scrollt nicht 
den gesamten Bereich mit allen darauf befindlichen Buchstaben, wie 
wir es bis jetzt bei den anderen Laufschriften getan haben, sondern, 
wie schon erwähnt, wird jeder Buchstabe als eigenes Bob (Blitter- 
Object) behandelt. Dies hat aber ebenfalls einen kleinen Nachteil: 
Normalerweise kann man mit dem Blitter, wie wir bereits wissen, 
nur an Wordadressen kopieren. Also ist ein Kopieren an jede belie¬ 
bige Adresse nicht möglich. Daher bedient man sich des Blitter-Shift 
Registers. Das bedeutet, daß man die Bits links hinausschiebt, dies 
hat aber den Nachteil, daß jene Bits, die rechts des Buchstabens 
liegen, ebenfalls nach links geschoben werden. 
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Normalerweise liegen die Buchstaben immer 16 Punkte weit entfernt 
nebeneinander. Wenn man nun nach jedem Buchstaben weitere 16 
Pixel Platz läßt, werden, durch das Rechtsschieben der einzelnen 
Buchstaben, keine ungewünschten Pixel mitgeschoben, sondern nur 
der neben jedem Buchstaben liegende frei Platz. 

Um die lästige und zeitaufwendige Berechnung der Bildschirm¬ 
position der Buchstaben während des Programmablaufes zu berech¬ 
nen, wird dies mit einer kurzen Routine gleich nach dem Programm¬ 
start erledigt: 

ChangeCoords: 

lea oords(pc),aO 

lea oords2(pc),al 

NoEnd2: 

move.l #Pic,dO 


; Y-Koordinate berechnen 
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clr.l 


move.w 

$2(a0),d 1 

mulu 

44,dl 

add.l 

l.dO 

•Koordinate berechnen 

move.w 

(aO).dl 

and.w 

$f,dl 

ror.w 

4,dl 

move.w 

#%0000l 10111111100,d2 ; für BLTCONO 

add.w 

l,d2 

move.w 

d2,(al)+ 

clr.l 

1 

move.w 

(a0),dl 

and.w 

$fffO,d 1 

asr.w 

3,dl 

add.l 

I,d0 

move.l 

d0,(al)+ ;; für BLTDPTH und BLTBPTH 

add.l 

4,a0 

cmp.l 

Coords+I464,a0 

bne.s 

NoEnd2 

rts 



Die Bewegungen, welche die Buchstaben durchführen sollen, wer¬ 
den am besten mit einem kurzen Basicprogramm berechnet. Dieses 
Basicprogramm liefert uns aber nur das Ergebnis einer mathe¬ 
matischen Kurve (Sie findes dieses als File auf der mitgelieferten 
Diskette unter dem Namen "Kords.tab"), aber noch nicht die endgül¬ 
tige Bildschirmposition, an der ein Buchstabe plaziert werden soll. 
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Daher ordnet die obige Routine jedem X- und Y-Zahlenwert aus 
dem nachgeladenen File die richtige Bildschirmposition zu und spei¬ 
chert diese unter dem Label "Coords2" ab. Das Hauptprogramm 
muß also lediglich die Bildschirmposition aus dieser neu erstellten 
Tabelle nehmen und den aktuellen Buchstaben an diese Adresse 
"Mitten". 


Koordinaten-Laufschrift 


Nachzuladende Files: 

"dflhraw/16x 16_ I pl-breit.raw" auf "font" 
"dfO:Kords.tab M auf "Coords" 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconö 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltbpth 

= 

$4c 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

— 

$74 

s: 

bsr.s 

opening 
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bsr.L 

bsr.L 


initcolors 

ChangeCoords 


loop: 

move.l 

$dff004,d0 


and.l 

#$ffföO,dO 


cmp.l 

#$0b000,d0 


bne.s 

loop 


move.l 

#$dfPOOO,a6 


bsr.L 

copyletter 

* 

btst 

#6,$bfe00l 


bne.s 

loop 


end: 

move.w 

#$c000,$dftD9a 


moveq 

#0,d0 

e: 

rts 


* 

opening: 

move.w 

#$4000,$dff09a 


move.l 

#copperl,$dff084 


move.l 

#Pic,dO 


add.l 

#2,d0 


move 

d0,pll+6 


swap 

dO 


move 

d0,pll+2 


move.l 

#sprite,dO 


lea 

spl+2(pc),a0 


moveq. 1 

#7,dl 

initsprites: swap 

dO 


move 

dO,(aO) 


add.l 

#4,a0 


swap 

dO 


move 

dO,(aO) 
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add.l 

dbf 

ils 

initcolors: lea 
lea 

moveq 

move 

copycolors: 

move 

move 



addq 


dbf 


rts 

colortable: 

dc.w 

copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

Pli: 

dc.w 


dc.w 

s P l: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


#4,a0 

d I .initsprites 

color(pc).aO 
colortable( pc),al 
# I ,d0 
#$ 18().d I 

d I .(a0)+ 

(al)+,(aO)+ 

#2,d I 

dO.copycolors 


$0000,$0fff 


$008e,$3090 
$0090,$f8tT) 
$0092.$003 8 
$0094,$00d0 
$0102.$0000 
$0104.$0024 
$0108.$0004 
$010a,$0004 
$0100.$ 1200 
$00e0.$0000 
$00e2.$0000 
$0120,$0000 
$ 0122.$0000 
$0124.$0000 
$0126,$0000 
$0128.$0000 
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dc.w 

$012a,$0000 

dc.w 

$012c,$0000 

dc.w 

$0l2e,$0000 

dc.w 

$0l30.$0000 

dc.w 

$0132,$0000 

dc.w 

$0I34,$0000 

dc.w 

$0136,$0000 

dc.w 

$0138,$0000 

dc.w 

$0l3a,$0000 

dc.w 

$013c,$0000 

dc.w 

$013e,$0000 

blk.l 

2,0 

dc.w 

$ffff,$fffe 


.************************************ 

ChangeCoords: 

lea Coords(pc),aO 

lea Coords2(pc),al 

NoEnd2: 

move.l #Pic,d() 

: Y-Koordinate berechnen 

clr.l dl 

move.w $2(a0),d I 

m u In 44,dl 

add.l dl,dO 

: X-Koordinate berechnen 

move.w (a()),d 1 

and.w #$f,dl 

ror.w #4,d I 

move.w #%0000l 101 I I 1 I 1 100.d2 ; für BLTCONO 
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add.w 

d 1 ,d2 

move.w 

d2.(al)+ 

clr.l 

dl 

move.w 

(a()).dl 

and.vv 

#$mr).di 

asr.w 

#3,d I 

add.l 

d 1 ,d() 

move.l 

dO.(a 1)+ : für BLTDPTH und BLTBPTH 

add.l 

#4.a() 

cmp.l 

#Coords+1464,aO 

bne.s 

NoHnd2 

rts 



.************************************ 


CopyLetter: 


Löschen 


NoEnd3: 


clr.vv 

BLTADAT(a6) 

clr.w 

BLTDDAT(a6) 

move.w 

#%0000000100000000. B l .TCON 0( a6) 

clr.w 

LTCON l(a6) 

move.w 

#40.BLTDMOD(a6) 

move.l 

# 2 160,d5 

lea 

Coords2(pc),a0 

add.l 

CoordsCount.aO 

btst 

#6.DMACONR(a6) 

bne.s 

NoEnd3 
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move.l 

$2(aO,d5.l).BLTDPTH(a6) 

move.w 

# 1026,BLTSIZE(a6) 


sub.l 

#30,d5 

;Abstand der Buch¬ 

bne.s 

NoEnd3 

staben in Tabellen- 
;einträgen mal sechs 

; Buchstaben Mitten 

add.l 

#6,CoordsCount 

; Alle wieviel Einträge 

cmp.l 

#30,CoordsCount 

; mal sechs der 
; Koordinatenzähler und 

bne.s 

NoZero 

; der Textzähler 
; herabgesetzt werden 

clr.l 

CoordsCount 


add.l 

#1,TextCount 


cmp.b 

#$FF,(a5) 


bne.s 

NoZero 


clr.l 

TextCount 


NoZero: 

btst 

#6,DMACONR(a6) 


bne.s 

NoZero 


clr.w 

BLTCON1 (a6) 


move.w 

#36,BLTAMOD(a6) 


move.w 

#4(),BLTDMOD(a6) 


move.w 

#4(),Bl*IBMOD(a6) 



move.w #$ffff,BLTAFWM(a6) 

move.w #$ffff,BLTALWM(a6) 

lea Letter(pc),a3 

lea Text(pc),a5 

lea Coords2(pc),a0 

add.l TextCount,a5 

add.l CoordsCount,aO 
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move.l 

#2l60,d5 

NoEnd: 

move.l 

#Font,dO 


clr.l 

dl 


move.b 

(a5)+,d1 


sub.b 

#32,dl 


ext 

dl 


asl.w 

#2,dl 


move.l 

(a3,dl .w),d2 


add.l 

d2,d0 

Wait2: 

btst 

#6.DMACONR(a6) 


bne.s 

Wait2 

5 

move.l 

dO,BLTAPTH(a6) 


move.w 

$0(aO,d5.l),BLTCONO(a6) 


move.l 

$2(aO,d5.l),BLTDPTH(a6) 


move.l 

$2(aO,d5.l),BLTBPTH(a6) 


move.w 

# 1026,BLTSIZE(a6) 


sub.l 

#30,d5 ;Abstand der Buch- 


bne.s 

;staben in Tabellen- 
NoEnd Einträgen mal sechs 


rts 



.************************************* 


even 

text: dc.b " 
dc.b " 
dc.b 


"DIESER TEXT WIRD NACH EINER FREI WAEHLBAREN " 
dc.b "KOORDINATENTABELLE BEWEGT!!!" 
dc.b " 

dc.b" ",$FF 
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even 


sprite: 

CoordsCount 
TextCount: 

Letter: 

dc.l 0,4,8.12,16,20,24,28,32,36 

dc.l 640,644,648,652,656,660,664,668,672,676 

dc.l 1280,1284,1288,1292,1296,1300,1304,1308,1312,1316 

dc.l 1920,1924,1928,1932,1936,1940,1944,1948,1952,1956 

dc.l 2560,2564,2568,2572,2576,2580,2584,2588,2592,2596 

dc.l 3200,3204,3208,3212,3216,3220,3224,3228.3232,3236 

Font: blk.b 3840,0 

Coords: blk.b 1464,0 

Coords2: blk.b 2196,0 

Pic: blk.b 8800,0 


dc.l 0 
dc.l 0 
dc.l 0 


5.1.3. JUMP-LAUFSCHRIFT 

Als Abschluß des Laufschriftkapitels wollen wir uns mit einem vor 
allem für die Videonachbearbeitung gut geeigneten Beispiel einer 
Laufschrift befassen. 

Die nun folgende Laufschrift besitzt eine Größe von 32 mal 32 
Punkten und soll, während sie von rechts nach links über den 
Bildschirm wandert, auf und ab springen. 
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t 

LAUFSCHRIFT 

I 


Damit man auch die Farbenvielfalt ausnützen kann, besitzt der Font 
5 Bitplanes, also 32 verschiedene Farben. Wiederum muß der mit 
einem Malprogramm gestaltete Schriftsatz, falls sie selber einen 
gestalten wollen, zuerst ins RAW-Format umgewandelt werden und 
anschließend müssen die einzelnen Bitplanes mit dem Bitplane- 
Mixer nebeneinander gelegt werden, damit man sie in diesem Bei¬ 
spiel verwenden kann. Oder Sie verwenden den fertig konvertierten 
Font, der auf der Beispieldiskette enthalten ist. 

Um eine Laufschrift auf und ab springen zu lassen, gibt es mehrere 
Möglichhkeiten: 

1) Man könnte den gesamten Bildschirm scrollen, indem 
man die Planeadressen ständig ändert. 

2) Eine wesentlich elegantere Methode ist, daß man einen 
Wait-Befehl vor das Register $dffl00 setzt, das zuständig 
ist für das Einschalten der Playfields. Anschließend 
ändert man diesen Wait-Befehl und schon springt 

die Laufschrift. 

Wie das nun programmtechnisch aussieht, sehen wir uns anhand des 
Listings an: 

copperl: 

dc.w $008e,$3064 

dc.w $0090,$f8dl 
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dc.w $0092,$0020 

dc.w $0094,$00d8 

dc.w $0I02,$0000 

dc.w $0I04,$0000 

dc.w $0108,$0004 

dc.w $0l0a,$0004 

Zuerst werden die für die Bilddarstellung wichtigen Register 
initialisiert. 


dc.w $0I00,$0200 


In dieser Zeile werden die Bildplanes ausgeschalten. 


pll: 

dc.w 


dc.w 

P I2: 

dc.w 


dc.w 

P I3: 

dc.w 


dc.w 

pl4: 

dc.w 


dc.w 

P I5: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


$00e0,$0000 
$00e2,$0000 
$00e4,$0000 
$00e6,$0000 
$00e8,$0000 
$00ea,$0000 
$00ec,$0000 
$00ee,$0000 
$00 fX ),$0000 
$00f2,$0000 
$0I20,$0000 
$0122,$0000 
$0124,$0000 
$0126,$0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$012e,$0000 
$0I30,$0000 
$0I32,$0000 
$0I34,$0000 
$0136,$0000 
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color: 


de. w $013 8,$0000 

dc.w $013a,$0000 

dc.w $013c,$0000 

dc.w $0l3e,$0000 

blk.l 32,0 

Hier werden die Bitplanes, sowie die Sprites und die Farbregister 
eingetragen, die dann von der Routine "opening" initialisiert werden. 

eins I: dc.w $50df,$fffe 

dc.w $0100,$5200 

Nun folgt der Wait-Befehl, von dem oben gesprochen wurde. Dieser 
Befehl wird später vom Programm aus ständig verändert. Nach dem 
Wait folgt dann das Kommando zum Einschalten der oben initia¬ 
lisierten Bitplanes. 

cins2: dc.w $700f,$fffe 

dc.w $0100,$0200 

dc.w $ffff,$fffe 

Der zweite Wait schaltet die Bitplanes kanpp unter der Laufschrift 
wieder ab. 

Verändert werden die beiden Wait-Befehle mit der folgenden 
Routine: 

CopperChange: 

lea Sinus(pc),a0 

add.l SinusCount,a0 

move.w #$68,dl 

add.b $ I (a0),d 1 

move.b d I ,Cinsl 

add.b #$20,d 1 

move.b dl,Cins2 
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add.l #8,SinusCount 

cmp.l #504, SinusCount 

bne.s NoEnd2 

clr.l SinusCount 

NoEnd2: rts 

Damit die Bewegung der Laufschrift nicht linear ist, sondern ein 
"Springen” der Schrift dargestellt wird, verwenden wir dazu Sinus- 
Daten, die zuerst von der mitgelieferten Beispieldiskette nachge¬ 
laden werden müssen. 

Wie man die Buchstaben einer Laufschrift auf dem Bildschirm be¬ 
wegt, wollen wir an dieser Stelle nicht mehr erklären, da dies in den 
vorhergehenden Kapiteln schon ausführlich besprochen wurde. Falls 
nötig, schlagen Sie bitte weiter vorne nach. 

Hier nun das fertige Listing: 

; Jump-Laufschrift 

; Nachzuladende Files: 

; "SinusDat.tab" 

; " ra w/32x32 5 p I .con" 

dmaconr = $02 

bltddat = $00 

bltconO = $40 

bltconl = $42 

bltafwm = $44 

bltalwm = $46 

bltcpth = $48 

bltbpth = $4c 

bltapth = $50 

bltaptl = $52 

bltdpth = $54 

bltsize = $58 


auf "sinus" 
auf "font" 
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bltcmod 

= 

bltbmod 

= 

bltamod 

= 

bltdmod 

= 

bltcdat 

= 

bltbdat 

= 

bltadat 

= 

s: 

bsr.s 


bsr.L 

loop: 

move.l 

and.l 

cmp.l 


bne.s 


move.l 

bsr.L 


bsr.L 


btst 


bne.s 

end: 

move.w 

e: 

moveq.l 


rts 

opening: 

move.w 

move.l 

move.l 

move 

swap 

move 

swap 

add.l 

move 


$60 

$62 

$64 

$66 

$70 

$72 

$74 

opening 

initcolors 

$dff004,d0 

#$flTDO,dO 

#$0tD00,d0 

loop 

#$DFF000,a6 
Sc roll 

CopperChange 

#6,$bl'e00l 

loop 

#$c000,$dff09a 

#0.d0 


#$4000.$dffö9a 

#copperl.$dftt)84 

#Pic,dO 

d0.pl I +6 

dO 

d0.pl 1+2 
dO 

size.dO 

d(),pl2+6 
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swap 

dO 

move 

d0,pl2+2 

swap 

dO 

add.l 

size.dO 

move 

d0,pl3+6 

swap 

dO 

move 

d0,pl3+2 

swap 

dO 

add.l 

size.dO 

move 

d0,pl4+6 

swap 

dO 

move 

d0,pl4+2 

swap 

dO 

add.l 

size.dO 

move 

d0.pl5+6 

swap 

dO 

move 

d0,pl5+2 

move.l 

#sprite,dO 

lea 

spl+2(pc),a0 

moveq.l 

#7,dl 

initsprites: swap 

dO 

move 

dO,(aO) 

add.l 

#4.a0 

swap 

dO 

move 

dO.(aO) 

add.l 

#4,a0 

dbf 

d 1 .initsprites 

rts 

initcolors: lea 

color(pc),aO 

lea 

font+38400,al 

moveq 

#3 l.dO 

move 

#$!80,dl 

copycolors: 

move 

d 1 ,(a0)+ 


174 



move 

addq 

dbf 

rts 

copperl: dc.w 

dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 

pll: dc.w 

dc.w 

pl2: dc.w 

dc.w 

pl3: dc.w 

dc.w 

pl4: dc.w 

dc.w 

pl5: dc.w 

dc.w 

spl: dc.w 

dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 
dc.w 


(al)+,(aO)+ 

#2,dl 

dO,copycolors 


$008e,$3064 
$0090,$fi8d I 
$0092, $0020 
$0094,$00d8 
$0102,$0000 
$0104,$0000 
$0108,$0004 
$010a,$0004 
$0100,$0200 
$00e0,$0000 
$00e2,$0000 
$00e4,$0000 
$00e6,$0000 
$00e8,$0000 
$00ea,$0000 
$00ec,$0000 
$00ee,$0000 
$00fö,$0000 
$ 00 f 2,$0000 
$0120,$0000 
$ 0122,$0000 
$0124,$0000 
$0126,$0000 
$0128,$0000 
$012a,$0000 
$012c,$0000 
$0l2e,$0000 
$0130,$0000 
$0132,$0000 
$0134,$0000 
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dc.w 

$0136,$0000 


dc.vv 

$0138,$0000 


dc.w 

$013a,$0000 


dc.w 

$()13c,$0000 


dc.w 

$013e,$0000 

color: 

blk.l 

32,0 

eins 1: 

dc.w 

$50df,$fffe 


dc.w 

$0I00,$5200 

cins2: 

dc.w 

$700f,$fffe 


dc.w 

$0100,$0200 


dc.w 

$ffff,$fffe 

.****************************************** 

Scroll: 



; Gesamten Scrollbereich um 1 Pixel nach links shiften 


move.w 

#% 1 1101001 111 IOOOO,BLTCONO(A6) 


clr.w 

BLTCON l(a6) 


clr.w 

BLTAMOD(a6) 


clr.w 

BLTDMOD(aö) 


move.w 

#$FFFF,BLTAFWM(a6) 


move.w 

#$FFFF,BLTALWM(a6) 


move.l 

#Pic+2,BLTAPTH(a6) 


move.l 

#Pic,BLTDPTFl(a6) 


move.w 

# 10266,BLTSIZE(a6) 

WaitLoop 

btst 

#6,DMACONR(A6) 


bne.s 

WaitLoop 

Jedes 16.Mal ein neuen Buchstaben an den rechten Rand blitten 


add.w 

#l,LetterMark 


emp.w 

#16,LetterMark 
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bne.L NoLetter 

clr.w LetterMark 


move.w #%0()00I00I I 1 I I0000,BLTCÜN0(A6) 

clr.w BI.TCON l(a6) 

move.w #l96,BLTAMOD(a6) 

move.w #48,BLTDMOD(a6) 

move.w #$FFFF.BLTAFWM(a6) 

move.w #$FFFF,BETALWM(a6) 


clr.l 

clr.l 

Nochmal: move.l 
add.l 
move.l 
add.l 
clr.l 
move.b 
cmp.b 
bne.s 
clr.l 
move.b 

NoEnd: ext 

sub.l 
asl.l 
lea 
add.l 
move.l 
move.l 
add.l 
move.l 
move.w 

WaitLoop2: 

btst 

bne.s 


d6 

d7 

#Font,dO 

dö.dO 

#Text,a() 

TextMark.aO 

dl 

(aO),d I 
#$FF,d 1 
NoEnd 
TextMark 

r ".di 

dl 

#32,dl 

#2,dl 

LetterTab(pc),a3 
(a3,d I I),d0 
dü,BLTAPTH(a6) 
#Pic+48,dO 
d7,d() 

dO,BLTDPTH(a6) 

#2050,BLTSIZE(a6) 


#6,DMACONR(A6) 

WaitLoop2 
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NoLetter: 


add.l 

#1664,d7 

add.l 

#40,d6 

cmp.l 

#200,d6 

bne.s 

Nochmal 

add.l 

#l,TextMark 


rts 


************************************ 


CopperChange: 

lea 

Sinus(pc),a0 

add.l 

SinusCount.aO 

* 

move.w 

#$68,dl 

add.b 

$l(a0),dl 

move.b 

dl,Cinsl 

add.b 

#$20,d 1 

move.b 

dl,Cins2 

add.l 

#8,SinusCount 

cmp.l 

#504,SinusCount 

bne.s 

NoEnd2 

clr.l 

SinusCount 

NoEnd2: rts 



************************************* 

* 


even 



Size: 

dc.l 

1664 

LetterMark: 

dc.w 

0 

TextMark: 

dc.l 

0 

SinusCount: 

dc.l 

0 

sprite: 

dc.l 

0 


LetterTab: 

dc.l 0,4,8,12,16,20,24,28,32,36 

dc.l 6400,6404,6408,6412,6416,6420,6424,6428,6432,6436 
dc.l 12800,12804,12808,12812,12816,12820,12824,12828,12832 
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dc.l 12836 

dc.l 19200,19204,19208,19212,19216,19220,19224,19228,19232 
dc.l 19236 

dc.l 25600,25604,25608,25612,25616,25620,25624,25628,25632 
dc.l 25636 

dc.l 32000,32004,32008,32012,32016,32020,32024,32028,32032 
dc.l 32036 

Text: 

dc.b " DIESE LAUFSCHRIFT IST 32X32 PIXEL GROSS UND 
SPRINGT " 

dc.b "AUF UND AB!!! ",$ff 

even 

Sinus: blk.b 504,0 

Font: blk.b 38464,0 

Pic: blk.b 8320,0 ;32*5*52 (Höhe*Tiefe*Breite) 


5.2. OBJEKTE 


Auf den nachfolgenden Seiten wollen wir uns einem Thema 
widmen, das oft in der Presse erwähnt wird. Die Blitterobjekte oder 
kurz Bobs genannt. Wenn man normalerweise ein Objekt darstellen 
und bewegen möchte, verwendet man dafür die Sprites, die der 
Amiga zur Verfügung stellt. Die Anwendung der Sprites ist ziemlich 
einfach, dafür hat hat dies einige Nachteile: 

Es stehen nur maximal acht Sprites zur Verfügung. 

Ein Sprite kann zwar beliebig hoch, aber nur maximal 16 
Pixel breit sein. 

Ein Sprite besteht aus 4 Farben, wobei eine die Hinter¬ 
grundfarbe und als solche durchsichtig ist. Es gibt einen 
Trick, mit dem man auch löfarbige Sprites darstellen 
kann, aber um ein 16farbiges Sprite darstellen zu können, 
muß man zwei normale Sprites Zusammenlegen. 
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Wie Sie sehen, besitzen die Sprites einige Nachteile. Eine andere 
Möglichkeit sind die schon erwähnten Bobs. 

Bobs können praktisch beliebig groß sein und eine beliebige Anzahl 
Farben besitzen. Die Größe und die Farbanzahl der Bobs ist abhänig 
von den Playfields, die verwendet werden. Bobs sind ein Bestandteil 
des Playfields, da sie in dieses hineinkopiert werden. 


5.2.1. OBJEKTE NACH KOORDINATENTABELLE 
BEWEGEN 

Wie man mit dem Blitter Objekte auf dem Bildschirm plaziert, ha¬ 
ben wir schon in den ersten Kapiteln besprochen. Jedoch um ein Ob¬ 
jekt zu bewegen, ist noch einiges zu berücksichtigen. 

Der Blitter kann Daten nur an Wordgrenzen kopieren, das bedeutet, 
daß man nur alle 16 Punkte eine Grafik plazieren kann. Will man 
nun ein Bob bewegen, muß eine Plazierung an jeder Stelle des Bild¬ 
schirmes möglich sein. Dazu muß das Objekt verschoben werden, 
auch Shiften genannt. 

Wenn man ein Bob nach links verschiebt, werden die rechts liegen¬ 
den Bits ins Bild geschoben. Sind diese Bits nicht gelöscht, dann 
entsteht ein unerwünschtes Bild. Daher muß rechts neben jedem Ob¬ 
jekt, das verschoben werden soll, ein Abstand von 16 Pixeln freige¬ 
lassen werden. 

Sehen wir uns nun die Routine an, die die Daten für eine Kreis¬ 
bewegung des 32 farbigen Bobs aus einer Tabelle holt und das 
Objekt an der richtigen Stelle plaziert. 

move.l #Pic,dO 

lea Coords(pc),aO 

add.l CoordCount,aO 
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Zuerst werden die Adressen der Bitplane, sowie der 
Koordinatentabelle in die Daten- bzw. Adressregister geladen. 


; Y-Koordinate berechnen 

clr.l dl 

niove.w $2(a0),d 1 
mulu #200,dl 

add.l dl,dO 

; X-Koordinate berechnen 


move.w 

(aO).dl 

and.w 

#$f.d 1 

ror.w 

#4.d 1 

move.w 

#%()()()<) 1001 11110000,d2 

add.w 

d 1 ,d2 

move.w 

d2.BLTCONO(a6) 

clr.l 

dl 

move.w 

(aO).dl 

and.w 

#$irro,d i 

asr.w 

#3,dl 

add.l 

d 1 ,d0 


In diesem Abschnitt werden die Daten für die X- und die Y-Koordi¬ 
nate aus der Tabelle geholt und die dadurch entstehende 
Verschiebung in das BLTCONO-Register eingetragen. 

inove.l dO,SaveAdress 
move.l dO,BLTDPTH(a6) 
move.w # 10243,BLTSIZE(a6) 

Letztendlich wird der Blitter durch Beschreiben des BLTSIZE-Regi- 
sters gestartet. Die BLITSIZE ergibt sich aus: (32*64)*5+2= 10243 
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Ein Objekt nach Koordinatentabelle bewegen 


Nachzuladende Files: 

"KreisDat.tab" auf "Coords" 

M raw/Bob32x32_5pl-breit.con" auf "Bob" 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltconl 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 

s: 

bsr.s 

opening 


bsr.L 

initcolors 

loop: 

move.l 

$dffÜ04.d0 


and.l 

#$fff00,d0 


cmp.l 

#$0ff00,d0 


bne.s 

loop 


move.l 

#$dffö00,a6 


bsr.L 

blit 
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btst 

bne.s 


end: move.w 

moveq.l 

e: rts 

opening: move.w 
move.l 
move.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 


#6,$bfe001 

loop 

#$c000,$dffö9a 

#0,d0 


#$4000,$dfTO9a 

#copperl,$dfft)84 

#pic,dO 

d0,pll+6 

dO 

d0,pll+2 

dO 

size(pc),dO 

d0,pl2+6 

dO 

d0,pl2+2 

dO 

size(pc),dO 

d0,pl3+6 

dO 

d0,pl3+2 

dO 

size(pc),dO 

d0,pl4+6 

dO 

d0,pl4+2 

dO 

size(pc),dO 

d0,pl5+6 

dO 

d0,pl5+2 
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move.l 

lea 

moveq.l 

initsprites: swap 
move 
add.l 
swap 
move 
add.l 
dbf 
rts 

initcolors: lea 
lea 


moveq 

move 

copycolors: 



move 


move 


addq 


dbf 


rts 

copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

pll: 

dc.w 


dc.w 

pl2: 

dc.w 


#sprite,dO 

spl+2(pc),a0 

#7,dl 

dO 

dO,(aO) 

#4,a0 

dO 

dO,(aO) 

#4,a0 

d Unitsprites 


color(pc),aO 
Bob+960(pc),al 
#31 ,d0 
#$l80,dl 

dl,(aO)+ 

(al )+,(a0)+ 

#2,dl 

dO.copycolors 


$008e,$3090 

$0090,$refl() 

$0092,$0038 

$0094,$00d0 

$0 l 02,$0000 

$0I04,$0024 

$0l08,$00a0 

$010a,$00a0 

$0I00,$5200 

$00e0,$0000 

$00e2,$0000 

$00e4,$0000 
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dc.w 

P I3: 

dc.w 


dc.w 

pl4: 

dc.w 


dc.w 

pl5: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

color: 

blk.l 


dc.w 


$00e6,$0000 
$00e8,$0000 
$00ea,$0000 
$00cc,$0()()0 
$00ee,$0000 
$00 f 0,$0000 
$00f2,$0000 
$0120,$0000 
$0122,$0000 
$0124,$0000 
$0126,$0000 
$ö 128,$()()()() 
$012a,$0000 
$0l2c,$0000 
$012e,$0000 
$0I30,$0000 
$0I32,$0000 
$0134,$0000 
$0136,$0000 
$013 8,$0000 
$013a,$0000 
$013c,$0000 
$013e,$0000 
32,0 

$ffff,$fffe 


Blit: 


; Löschen 


clr.w 

BLTDDAT(a6) 

move.w 

#34,BLTDMOD(a6) 

move.w 

#%0000000100000000, BLTCONO(a6) 

move.l 

SaveAdress,BLTDPTH(a6) 

move.w 

#!0243,BLTSIZE(a6) 
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Wait: btst 

#6,DMACONR(a6) 

bne.s 

Wait 

Bob blitten 

clr.w 

BLTCON l(a6) 

clr.w 

BLTAMOD(a6) 

move.w 

#34,BLTDMOD(a6) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.l 

#Bob,BLTAPTH(a6) 

move.l 

#Pic,dO 

lea 

Coords(pc),aO 

add.l 

CoordCount.aO 

; Y-Koordinate berechnen 

clr.l 

dl 

move.w 

$2(a0),dl 

mulu 

#200,d 1 

add.l 

dl,dO 

; X-Koordinate berechnen 

move.w 

(aO),dl 

and.w 

#$f,d 1 

ror.w 

#4,dl 

move.w 

#%0000I00111110000,d2 

add.w 

dl,d2 

move.w 

d2,BLTCONO(a6) 

clr.l 

dl 

move.w 

(aO),dl 

and.w 

#$ffP0,d 1 
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asr.w 

#3.dl 


add.l 

d 1 ,d() 


move.l 

dO.SaveAdress 


move.l 

dO,BLTDPTH(a6) 


move.w 

tt 10243,BLTSIZE(a6) 


add.l 

#4,CoordCount 


cmp.l 

# 1008,CoordCount 


bne.L 

Wait2 


clr.l 

CoordCount 

Wait2: 

btst 

#6.DMACONR(a6) 


bne.s 

Wait2 


rts 


.***********************************: 

even 

sprite: 

dc.l 

0 

size: 

de. 1 

40 

SaveAdress: 



dc.l 

pic 

CoordCount: 



dc.l 

0 

Coords: 

blk.b 

1008,0 

Bob: 

blk.b 

1024,0 

pic: 

blk.b 

40000,0 


187 




5.2.2. MEHRERE OBJEKTE GLEICHZEITIG BEWEGEN 


Auf den vorhergehenden Seiten haben wir ein mehrfarbiges Objekt 
über den Bildschirm bewegt. Nun wollen wir noch einige Objekte 
mehr hinzufügen. 

Dieses Programm unterscheidet sich vom letzten nur durch die 
Anordnung der Bewegungsroutine, die jetzt so umgebaut wurde, daß 
die Reihenfolge der Bobs in einer Tabelle festgelegt wird, die 
innerhalb einer Schleife jedem Objekt die richtigen Koordinaten 
zuordnet. 

Dieses Programm soll demonstrieren, wie man mehrere farbige 
Objekte (mit 32 Farben, das entspricht 5 Bitplanes) mit derselben 
Geschwindigkeit in einer Richtung bewegt. Jedoch darf sich unter 
den Objekten kein Hintergrundbild befinden, da dieses sonst zerstört 
werden würde. Ebenso dürfen sich die Objekte nicht gegenseitig 
überlappen, da sie sich sonst gegenseitig kurzzeitig löschen würden. 

Um dies zu demonstrieren, wurden die Abstände zwischen den 10 
Objekten von uns so gewählt, daß sich die Bobs in den Kurven kurz 
überlagen. Da der Berührungspunkt nur sehr klein ist (immer nur in 
den Ecken), muß man genau hinsehen um die Kollisionen zu sehen. 

; Mehrere Objekte 

; Mehrere GLEICHE Bobs, nach EINER Koordinatentablle, 

: mit DERSELBEN Geschwindigkeit und Richtung und 
: ohne mögliche Überlappung bewegen. 

; Nachzuladende Files: 

; "KreisDat.tab" auf "Coords" 

; "raw/Bob32x32_5pl-breit.con" auf "Bob" 
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dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltapth 

— 

$50 

bltaptl 

— 

$52 

bltdpth 

— 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bl tarn od 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 

s: 

bsr.s 

opening 


bsr.L 

initcolors 

loop: 

move.l 

$dff004,d0 


and.l 

#$fTYD0,d0 


cmp.l 

#$0ffi)0,d0 


bne.s 

loop 


move.l 

#$dffOOO,a6 


bsr.L 

hin 


bist 

#6,$bfe001 


bne.s 

loop 

end: 

move.w 

#$c000,$dff09a 


moveq.l 

#0,d0 

e: 

rts 
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opening: move.w 
move.l 
move.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 

move.l 

lea 

moveq.l 

initsprites: swap 
move 
add.l 
swap 
move 
add.l 


#$4000,$dffl)9a 

#copperl,$dffD84 

#pic,dO 

d0,pll+6 

dO 

dO,pl 1+2 
dO 

size(pc),dO 

d0,pl2+6 

dO 

d0,pl2+2 

dO 

size(pc),dO 

d0,pl3+6 

dO 

d0,pl3+2 

dO 

size(pc),dO 

d0,pl4+6 

dO 

d0,pl4+2 

dO 

size(pe),dO 

d0,pl5+6 

dO 

d0,pl5+2 

#sprite,dO 

spl+2(pc),a0 

#7,dl 

dO 

dO,(aO) 

#4,a0 

dO 

dO,(aO) 

#4,a0 
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dbf 

rts 

initcolors: lea 
lea 

moveq 

move 

copycolors: 

move 

move 

addq 

dbf 

rts 

copperl: 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

dc.w 

pll: dc.w 

dc.w 

p!2: dc.w 

dc.w 

pl3: dc.w 

dc.w 

pl4: dc.w 

dc.w 

p!5: dc.w 

dc.w 

spl: dc.w 


dl,initsprites 


color(pc),aO 
Bob+960(pc),al 
#31 ,d0 
#$180,dl 

dl,(aO)+ 

(al)+,(aO)+ 

#2,dl 

dO,copycolors 


$008e,$3090 
$0090,$f8fl0 
$0092,$0038 
$0094,$00d0 
$0102,$0000 
$0104,$0024 
$0108,$00a0 
$010a,$00a0 
$0100,$5200 
$00e0,$0000 
$00e2,$0000 
$00e4,$0000 
$00e6,$0000 
$00e8,$0000 
$00ea,$0000 
$00ec,$0000 
$00ee,$0000 
$ 0010,$0000 
$00 ß ,$0000 
$0120,$0000 
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color: 


dc.w 

$0122,$0000 

dc.w 

$0124,$0000 

dc.w 

$0126,$0000 

dc.w 

$0I28,$0000 

dc.w 

$012a,$0000 

dc.w 

$012c,$0000 

dc.w 

$0l2e,$0000 

dc.w 

$0130,50000 

dc.w 

$0I32,$0000 

dc.w 

$0134,$0000 

dc.w 

$0136,50000 

dc.w 

$0138,50000 

dc.w 

$013a,$0000 

dc.w 

$013c,$0000 

dc.w 

$0l3e,$0000 

blk.l 

32,0 

dc.w 

$ffff,$fffe 


.******************************************* 


Blit: 

lea BobTable(pc),a5 

inove.l #0,d7 

NoEnd: 


; Löschen 


clr.w BLTDDAT(aö) 

move.w #34,BLTDMOD(a6) 
move.w #%00000001 OOOOOOOO.BLTCONO(a6) 
move.l $0(a5,d7.l),BLTDPTH(a6) 

move.w # 10243,BLTSIZE(a6) 

; Bob blitten 


move.l #Pic,dO 
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lea 

add.l 


Coords(pc),aO 

$4(a5,d7.1),a0 


Y-Koordinate berechnen 

clr.l dl 

move.w $2(a0),dl 
mulu #200,dl 

add.l dl,dO 

X-Koordinate berechnen 


move.w 

(aO),dl 

and.w 

#$f,d 1 

ror.w 

#4,dl 

move.w 

#%()000I00I 1 11 !0000.d2 

add.w 

dl,d2 

clr.l 

dl 

move.w 

(aO),dl 

and.w 

#$fffO,d 1 

asr.w 

#3,dl 

add.l 

d 1 ,d() 

move.l 

d(),(a5,d7.l) 

btst 

#6,DMACONR(a6) 

bne.s 

Wait 

move.w 

d2,BLTCONO(a6) 

clr.w 

BLTCON l(a6) 

clr.w 

BLTAMOD(aö) 

move.w 

#34,BI,TDMOD(a6) 

move.w 

#$FFFF,BLTAFWM(a6) 

move.w 

#$FFFF,BLTALWM(a6) 

move.l 

#Bob,BLTAPTH(a6) 

move.l 

dO,BLlDP'FH(a6) 
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move.w 

# 10243,BLTSIZE(a6) 


add.l 

#4,$4(a5,d7.l) 


cmp.l 

#1008,$4(a5,d7.l) 


bne.L 

Wait2 


clr.l 

$4(a5,d7.l) 

* 

Wait2: 

btst 

#6,DMACONR(a6) 


bne.s 

Wait2 

' 

add.l 

#8,d7 


cmp.l 

#$FFFF,$0(a5,d7.l) 


bne.L 

NoEnd 

t 

rts 


.******************************************: 

9 

even 

sprite: 

dc.l 

0 

size: 

dc.l 

40 ; Saveadress.CoordCount 

BobTable: 


dc.l 

pic.O 


dc.l 

pic,80 


dc.l 

pic, 160 


dc.l 

pic,240 


dc.l 

pic,320 


dc.l 

pic,400 


dc.l 

pic,480 


dc.l 

pic,560 


dc.l 

pic,640 


dc.l 

pic,720 


dc.l 

$FFFF 

Coords: 

blk.b 

1008,0 

Bob: 

blk.b 

1024,0 

pic: 

blk.b 

40000,0 
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5.2.3. 50 BOBS GLEICHZEITIG 


In dem unten beschriebenen Listing versuchen wir die Anzahl der 
Bobs zu steigern, um möglichst viele Objekte darzustellen. Diesmal 
werden der Einfachheit halber nur Bobs mit einer Plane (2 Farben) 
dargestellt. 

Wenn Sie das Listing näher betrachten, werden Sie feststellen, daß 
nur ein geringer Unterschied zu den beiden vorangegangenen be¬ 
steht. Dieser Unterschied liegt wiederum in der Routine, die aus 
einer diesmal etwas längeren Tabelle den 50 Bobs die richtigen X- 
und Y-Werte zuordnet. 

; 50 Bobs gleichzeitig 

; Nachzuladende Files: 

: "KreisDat.tab" auf "Coords" 

; "raw/Bob32\32 I-breit.raw" auf "Bob" 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconO 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltbpth 

= 

$4c 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 
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bltbdat 

= 

bltadat 

= 

s: 

bsr.s 

bsr.L 


bsr.L 

loop: 

move.l 

and.l 

cmp.l 


bne.s 


bsr.L 

move.l 


bsr.L 


btst 


bne.s 

end: 

move.w 

moveq.l 

e: 

rts 

opening: 

move.w 

move.l 

move.l 

move 

swap 


move 


move.l 

lea 

moveq.l 

initsprites: swap 
move 

add.l 


$72 

$74 

opening 

initcolors 

MakeCoords 

$dffö04,d0 

#$fffö0,d0 

#$03000,d0 

loop 

ChangePlane 

#$dff000,a6 

blit 

#6,$bfe00l 

loop 

#$c000,$dffö9a 

#0,d0 


#$4000,$dff09a 

#copperl,$dffT)84 

#pic,dO 

dO.pl 1+6 

dO 

d0.pl 1+2 

#sprite,d0 
spl+2(pc),a0 
#7.d I 
dO 

d0,(a0) 

#4,a0 
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swap 

move 

add.l 

dbf 

rts 

initcolors: lea 
lea 

moveq 

move 

copycolors: 

move 

move 

addq 

dbf 

rts 

even 

colortable: dc.w 

even 


copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

pll: 

dc.w 


dc.w 

spl: 

dc.w 


dc.w 


dc.w 


dc.w 


dO 

dO,(aO) 

#4,a0 

d I .initsprites 


color(pc),aO 
Colortable( pc).al 
# 1 ,d0 
#$l80,dl 

dl.(aO)+ 

(a I )+,(a0)+ 

#2,dl 

dO, copycolors 


$000,$fff 


$008e,$3090 
$0090,$f8fö 
$0092,$003 8 
$0094,$00d0 
$ 0102,$0000 
$0104,$0024 
$0108.$0000 
$010a,$0000 
$0100,$ 1200 
$00e0,$0000 
$00e2,$0000 
$0120,$0000 
$ 0122,$0000 
$0124,$0000 
$0I26,$0000 
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dc.w 

$0128,$0000 

dc.w 

$012a,$0000 

dc.w 

$0l2c,$0000 

dc.w 

$012e,$0000 

dc.w 

$0130,$0000 

dc.w 

$0I32,$0000 

dc.w 

$0I34,$0000 

dc.w 

$0I36,$0000 

dc.w 

$0138,$0000 

dc.w 

$0l3a,$0000 

dc.w 

$0l3c,$0000 

dc.w 

$0l3e,$0000 

color: blk.l 

2,0 

dc.w 

$ffff,$fffe 




ChangePlane: 


eor.l 

#10000, Puffer 

move.l 

#pic,d0 

add.l 

Puffer,d0 

move 

d0,pll+6 

swap 

dO 

move 

d0,pl 1+2 

rls 



.******************************************* 

MakeCoords: 

lea Coords(pc),aO 

lea Coords2(pc),al 

move.l #0,d7 

NoEnd4: 

move.l #Pic,dO 
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; Y-Koordinate berechnen 


clr.l dl 

move.w $2(a0,d7.l),d 1 
mulu #40,dl 

add.l dl,dO 

X-Koordinate berechnen 


move.w 

(a(),d7.l),d 1 

and.w 

#$f,d 1 

ror.w 

#4,dl 

move.w 

#%0000l 101 1 1 1 1 1 100,d2 

add.w 

d 1 ,d2 

clr.l 

dl 

move.w 

(a().d7.l),dl 

and.w 

#$fffö,d 1 

asr.w 

#3,dl 

add.l 

d 1 ,d0 

move.l 

d0,(al)+ 

move.w 

d2,(al )+ 

add.l 

#4,d7 

cmp.l 

# 1008,d7 

bne.s 

NoEnd4 

rts 



.******************************************* 

Blit: 

eor.l #4,puffer2 

; Löschen 

move.w #34,BLTDMOD(a6) 

move.w #%00000()01 ÖOOOOOOO,BLTCONO(a6) 
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lea BobTable(pc),a5 

move.l puffer2,dl 

NoEnd2: 

btst #6,DMACON R(a6) 

bne.s NoEnd2 

move.l (a5,dl.l),BLTDPTH(a6) 

move.w #2051 ,BLTSIZE(a6) 

•> 

add.l #6,$8(a5) 

cmp.l #!5l2,$8(a5) 

bne.L NoZero 

clr.l $8(a5) 

NoZero: 

add.l #12,a5 

cmp.b #$FF,(a5) 

bne.s NoEnd2 

; Bob blitten 


NoEnd: 


Wait: 


clr.w BLTCON l(a6) 
clr.w BLTAMOD(a6) 
move.w #34,BLTBMOD(a6) 
move.w #34,BLTDMOD(a6) 
move.w #$FFFF,BLTAFWM(a6) 
move.w #$FFFF,BLTALWM(a6) 

lea BobTable(pc),a5 

lea Coords2(pc),a0 

add.l $8(a5),a0 
move.l (a0),d0 
add.l puffer.dO 
move.l d0,(a5,dl.l) 

btst #6,DMACONR(a6) 
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bne.s 

Wait 

move.w 

$4(aO),BLTCONO(a6) 

move.l 

#Bob,BLTAPTH(a6) 

move.l 

dO,BLTDPTH(a6) 

move.l 

dO,BLTBPTH(a6) 

move.w 

#205l,BLTSIZE(a6) 

add.l 

#!2,a5 

cmp.b 

#$FF,(a5) 

bne.s 

NoEnd 

rts 

.************************************: 

even 

Puffer: de. 1 

10000 

Puffer2: de. 1 

0 

: Saveadress,CoordCount 

BobTable: 

de. 1 

pic,pic,0 

dc.l 

pic,pic,30 

de 1 

pic,pic,6ö 

dc.l 

pic,pic,90 

dc.l 

pic,pic,120 

dc.l 

pic,pic,150 

dc.l 

pic,pic, 180 

dc.l 

pic,pic,210 

dc.l 

pic,pic,240 

dc.l 

pic,pic,270 

dc.l 

pic,pic,300 

dc.l 

pic,pic,330 

dc.l 

pic,pic,360 

dc.l 

pic,pic,390 

dc.l 

pic,pic,420 

dc.l 

pic,pic,450 
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dc.l 

pic,pic,480 

dc.l 

pic,pic,5 10 

dc.l 

pic,pic,540 

dc.l 

pic,pic,570 

dc.l 

pic,pic,600 

dc.l 

pic,pic,630 

dc.l 

pic,pic,660 

dc.l 

pic,pic,690 

dc.l 

pic,pic,720 

dc.l 

pic,pic,750 

dc.l 

pic,pic,780 

dc.l 

pic,pic,8IO 

dc.l 

pic,pic,840 

dc.l 

pic,pic,870 

dc.l 

pic,pic,900 

dc.l 

pic,pic,930 

dc.l 

pic,pic,960 

dc.l 

pic,pic,990 

dc.l 

pic,pit\l020 

dc.l 

pic.pic, 1050 

dc.l 

pic,pic,1080 

dc.l 

pic,pic,l 1 10 

dc.l 

pic,pic,l 140 

dc.l 

pic,pic,l 170 

dc.l 

pic,pic,1200 

dc.l 

pic,pic,1230 

dc.l 

pic,pic,l260 

dc.l 

pic,pic,1290 

dc.l 

pic,pic,1320 

dc.l 

pic,pic,1350 

dc.l 

pic,pic,1380 

dc.l 

pic,pic,l410 

dc.l 

pic,pic,1440 

dc.l 

pic,pic,1470 

dc.l 

pic,pic, 1500 
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be: 

dc.w 

$FFFF 

sprite: 

dc.l 

0 

Coords: 

blk.b 

1008.0 

Coords2: 

blk.b 

1512,0 

Bob: 

blk.b 

192,0 

pic: 

blk.b 

20000.0 


Abschließend zu diesem Listing sei gesagt, daß es sehr wohl mög¬ 
lich ist, ein Vielfaches der dargestellten Bobs auf den Bildschirm zu 
bringen. Die Grenze nach oben ist noch lange nicht erreicht. Aber 
für unsere Demonstrationszwecke reichen 50 Bobs. 

Denn wenn noch etwas mehr als 50 Bobs dargestellt werden würden, 
könnte das Auge keine Bewegung mehr feststellen, da zuviele 
Objekte auf der Kreisbahn bewegt werden würden. Aus diesem 
Grund haben wir uns mit 50 Bobs begnügt. 


5.2.4. BOBS ZOOMEN 

Den Abschluß des Kapitels Objekte bildet das Thema "Zoomen". 
Die Aufgabe ist, ein Bob mit der ursprünglichen Größe von 16 Pixel 
Höhe und 16 Pixel Breite stufenlos zu vergrößern und zu verklei¬ 
nern. Das ganze soll natürlich in Echtzeit geschehen. 

Wenn Sie das Kapitel "Zoom-Laufschrift" aufmerksam durchge¬ 
arbeitet haben, wird Ihnen auch dieses Kapitel keine Probleme 
bereiten, denn die Technik des Zoomen von Bobs ist dieselbe, die 
wir bei der Zoom-Laufschrift angewandt haben. 

Die Zoom-Routine wird wieder in zwei Teile unterteilt, die horizon¬ 
tale und die vertikale Vergrößerung. Um das Bob horizontal zu ver¬ 
größern, wird genau wie bei der Zoom-Laufschrift eine Maske 
verwendet, die einen stufenlosen Übergang garantiert. 
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Bei der Zoom-Laufschrift wurde jeweils eine Zeile dieser Maske mit 
Hilfe der Modulo-Werte über den gesamten Bildschirm dargestellt. 
Hier können wir die Copper-Modulo-Werte nicht verwenden, da 
unser Bob nicht den gesamten Bildschirm ausfüllt. Daher wird jede 
Zeile mit dem Blitter kopiert. Damit man aber gleiche Zeilen nicht 
doppelt kopieren muß, werden diese mit negativen Blitter-Modulo 
dargestellt. 

Bei der vertikalen Vergrößerung müssen einige Zeilen doppelt dar¬ 
gestellt, bei der Verkleinerung hingegen einige Zeilen weggelassen 
werden. Diese Anordnung wurde in der Tabelle "Boz_3pl.tab" abge¬ 
speichert, die vor dem Programmstart von der Beispieldiskette nach¬ 
geladen werden muß. 

Die Vergrößerung, bzw. Verkleinerung wäre soweit ganz einfach. Es 
fehlt nur noch die richtige Farbgebung, damit auch jedes Pixel bei 
der nächsten Vergrößerungs- oder Verkleinerungsphase die richtige 
Farbe zugeordnet bekommt. Damit dies stimmt, wurde eine zweite 
Maske und eine zweite Tabelle angefertigt, die analog zu der Ver¬ 
größerung jedem Pixel die richtige Farbe zuordnet. 

; Bob zoomen 

; Nachzuladende Files: 

; "Boz_3pl.tab" 

; "Boz_3pl.tab2" 

; "ColorMask.con" 
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auf "tab" 
auf "tab2 M 
auf "ColorMask 





"BobZoomMask.con" auf M msk” 

"Bob_16_3pl.con" auf "hob" 


dmaconr 

= 

$02 

bltddat 

= 

$00 

bltconü 

= 

$40 

bltcon 1 

= 

$42 

bltafwm 

= 

$44 

bltalwm 

= 

$46 

bltcpth 

= 

$48 

bltbpth 

= 

$4c 

bltapth 

= 

$50 

bltaptl 

= 

$52 

bltdpth 

= 

$54 

bltsize 

= 

$58 

bltcmod 

= 

$60 

bltbmod 

= 

$62 

bltamod 

= 

$64 

bltdmod 

= 

$66 

bltcdat 

= 

$70 

bltbdat 

= 

$72 

bltadat 

= 

$74 

s: 

bsr.s 

opening 


bsr.L 

initcolors 

loop: 

move.l 

$dffö04,d0 


and.l 

#$im)o,do 


cmp.l 

#$07000,d0 


bne.s 

loop 


bsr.L 

ChangePlane 


move.l 

#$dl'f000,a6 


bsr.L 

ßlit 


btst 

#6,$bfe001 


bne.s 

loop 
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end: move.w 

moveq.l 

e: rts 

opening: move.w 
move.l 
move.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 
add.l 
move 
swap 
move 
swap 

move.l 

lea 

moveq.l 

initsprites: swap 
move 
add.l 
swap 
move 
add.l 
dbf 
rts 

* 

initcolors: lea 
lea 


#$c000,$dffö9a 

#0,d0 


#$4000,$dffö9a 

#copperl,$dftX)84 

#Pic,dO 

dO,pl I +6 

dO 

dO,pl 1+2 
dO 

Size(pc),dO 

d0,pl2+6 

dO 

d0,pl2+2 

dO 

Size( pc),dO 

d0,pl3+6 

dO 

d0,pl3+2 

dO 

#sprite,dO 

spl+2(pc),a0 

#7,dl 

dO 

dO,(aO) 

#4,a0 

dO 

dO.(aO) 

#4,a0 

d I,initsprites 


color(pc),aO 

Bob+96(pc),al 
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moveq #7,d0 

move #$ 180,d I 

copycolors: move dl,(aO)+ 

move (al)+,(aO)+ 

addq #2,d I 

dbf dO,copycolors 


Blit: btst #6.DMACONR(a6) 

bne.s Blit 

; Löschen 

move.w #%00000001000()()()00,BLTCON0(a6) 

clr.w BLTCON l(a6) 

move.w #32.BLTDMOD(a6) 

move.l #Pic+l6,dO 

add.l Puffer.dO 

move.l dO,BLTDPTH(a6) 

move.w # 12292,BLTSIZE(a6) 

Wait: btst #6,DMACONR(a6) 

bne.s Wait 

; Bütten 

clr.w BLTCON I(a6) 

move.w #-4.BLTAMOD(a6) 
move.w #4,BLTCMOD(a6) 
move.w #36.BLTBMOD(a6) 
move.w #36,BLTDMOD(a6) 
move.w #$FFFF.BLTAFWM(a6) 
move.w #$FFFF,BLTALWM(a6) 
move.w #%00001 I I I I I 101 100,$dfTO40 
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move.l 

move.l 

move.l 

clr.l 

move.w 

move.l 

add.l 

move.l 

add.l 

lea 

NextRow: move.l 
clr.l 
move.l 

move.l 

move.l 

asl.l 

add.l 

move.l 

move.l 

asr.l 

add.l 

9 

cmp.w 

bne.s 

addq 

addq 

NextLine: move.l 
clr.l 

move.w 

add.l 

add.l 


#$dfft)48,a4 

#$dfft)4c,a5 

#$dff050,a6 

dl 

#15,d7 

#Msk.d6 

ZoomCount(pc),d6 

#Pic+l6,d4 

Puffer,d4 

ColorMask(pc),a3 

#Bob,aO 

d5 

#!5,d3 

#Tab,al 

ZoomCou nt( pc ),d2 

#3,d2 

d2,al 

#Tab2,a2 

ZoomCount(pc),d2 

#2,d2 

d2.a2 

#7,d7 

NextLine 

#4,d4 

#4,d6 

d6,(a6) 

dO 

(a2),d0 

d4.d0 

d5,d0 


; Maske in Quelle A 
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NoPixel I: 


NoPixel2: 


NoPixel3: 


NoRow: 

NoPixel: 


move.l 

dO,(a5) 

move.l 

d0,$4(a6) 

move.w 

(al )+,d 1 

beq.s 

NoRow 

add.w 

(al ),d5 

clr.l 

d2 

move.w 

(aO),dO 

btst 

d7,dO 

beq.s 

NoPixel 1 

addq 

#142 

move.w 

$20(a0),d0 

btst 

d7,d0 

beq.s 

NoPixel2 

addq 

#242 

move.w 

$40(a0)40 

btst 

d740 

beq.s 

NoPixel3 

addq 

#442 

cmp.b 

#042 

beq.s 

NoPixel 

mulu 

#38442 

add.l 

a342 

move.l 

d2,(a4) 

move.w 

dl,$8(a6) 

addq 

#2,al 

addq 

#2,a0 

dbf 

d3,NextLine 

add.l 

#51246 

dbf 

d7,NextRow 


; Plane in Quelle B 
; und Ziel D 


;ColorMask in Quelle C 
; BLTSIZE 
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add.l #8,ZoomCount 

cmp.l #512,ZoomCount 

bne.s NoZero 

clr.l ZoomCount 

NoZero: rts 

.******************************************* 

» 

ChangePlane: 


move.l 

#Pic,dO 

add.l 

Puffer.dO 

move 

d0.pl 1 -1-6 

swap 

dO 

move 

d0.pl 1+2 

swap 

dO 

add.l 

Size(pc),d0 

move 

d0,pl2+6 

swap 

dO 

move 

d0,pl2+2 

swap 

dO 

add.l 

Size(pc),d0 

move 

d0,pl3+6 

swap 

dO 

move 

d0,pl3+2 

swap 

dO 

eor.l 

#24000,Puffer 

rts 



******************************************* 


copperl: 


dc.w 

$008e,$3090 

dc.w 

$oo9o,$rero 

dc.w 

$0092,50038 

dc.w 

$0094,$00d0 
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dc.w 

$0102,$0000 


dc.w 

$0104,$0024 


dc.w 

$0108,$0050 


dc.w 

$010a,$0050 


dc.w 

$0100,$3000 

pll: 

dc.w 

$00e0,$0000 


dc.w 

$00e2,$0000 

p!2: 

dc.w 

$00e4,$0000 


dc.w 

$00e6,$0000 

P I3: 

dc.w 

$00e8,$0000 


dc.w 

$00ea,$0000 

spl: 

dc.w 

$0120,$0000 


dc.w 

$0122.$0000 


dc.w 

$0124,$0000 


dc.w 

$0126,$0000 


dc.w 

$0128,$0000 


dc.w 

$012a,$0000 


dc.w 

$012c,$0000 


dc.w 

$012e,$0000 


dc.w 

$0130,$0000 


dc.w 

$0132,$0000 


dc.w 

$0134,$0000 


dc.w 

$0136,$0000 


dc.w 

$0138,$0000 


dc.w 

$013a,$0000 


dc.w 

$013c,$0000 


dc.w 

$013e.$0000 

color: 

blk.l 

8,0 


dc.w 

$ffff,$fffe 

even 

sprite: 

de. 1 

0 

Size: 

dc.l 

40 

Puffer: 

de. 1 

24000 

Zoom Count: 



dc.l 

80 



Tab: 

blk.b 

4096,0 

Tab2: 

blk.b 

128,0 

Bob: 

blk.b 

112,0 

ColorMask: 



blk.b 

3072,0 

Msk: 

blk.b 

8192,0 

Pic: 

blk.b 

48000.0 


; 16*512 
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6. SONSTIGES 


An dieser Stelle wollen wir uns jenen Dingen widmen, die man nicht 
so recht in eines der vorhergehenden Kapitel einordnen kann. 

Wir programmieren noch einen kleinen Effekt, der für einige Pro¬ 
grammierer sicherlich interessant ist. Dabei handelt es sich um einen 
Sternen-Himmel, der mit möglichst einfachen Mitteln die optimale 
Wirkung erzielt. 

Abschließend werden einige Anregungen gegeben, wie Sie das Ge¬ 
lernte aus Band I und Band 2 von "Spiele selber programmieren" 
auch praktisch anwenden oder kombinieren können. 


6.1. JOYSTICK-ABFRAGE 

Ein wesentlicher Bestandteil eines Spieles ist wohl die Steuerung, 
denn nichts regt einen Spieler mehr auf, als eine schlechte Umset¬ 
zung der Bewegungen. Daher sollte man auf diesen Punkt ebenfalls 
sehr achten. 

Es gibt mehrere Möglichkeiten, den Joystickport auszulesen. Wir 
verwenden eine der kürzesten und schnellsten Methoden. Wir lesen 
das Joystick-Register SdffOOc (JOYIDAT) in ein Datenregister ein 
und überprüfen den Inhalt. Wird nun der Joystick in eine Richtung 
bewegt, so stehen in dl folgende Werte: 


0003 

rechts 

0300 

links 

0100 

oben 

0001 

unten 

0200 

links + oben 

0002 

rechts + unten 

0103 

rechts + oben 

0301 

links + unten 
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Wir müssen also lediglich mit cmp das Datenregister auf einen 
dieser Werte überprüfen, um bei erfolgreichem Vergleich in die 
gewünschte Unterroutine zu verzweigen. Für Port 0 (Mausport) ist 
folgendes Register zu verwenden: 

JOYODAT SdffOOa 

Die fertige Joystickabfrage Für unser Spiel (das bereits in Band 1 
besprochen wurde) benötigt nur vier Bewegungsrichtungen. Wurde 
der Hebel gedrückt, verzweigt das Programm in die jeweilige 
Unterroutine und addiert bzw. subtrahiert I von der Spriteadresse. 
Ebenfalls wird verglichen, ob das Sprite schon eine Randgrenze 
erreicht hat. Wenn ja, wird nicht addiert/subtrahiert, sondern gleich 
zum Ende der Routine verzweigt. 

; Die komplette Joystick-Abfrage 


joy: 

cmp.b 

#$01,fin 

beq.s 

joyout 



clr 

$dff036 


move 

$dffl00c,dl 


cmp 

#$0300,dl 


beq.s 

links 


cmp.b 

#$03.dl 


beq.s 

rechts 


cmp 

#$0100,dl 


beq.s 

oben 


cmp.b 

#$01 ,d 1 


beq.s 

unten 

joyout: 

rts 


links: 

move.l 

spritebufferl.dO 


swap 

dO 


cmp.b 

#$40,d0 


bls.s 

joyout 


sub 

rts 

#$0001 .spritebuffer 1 
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rechts: 


move.l spritebufferl ,d0 

swap dO 

cmp.b #$d8,d0 

bhs.s joyout 

add #$0001 ,spritebuffer I 

rts 

oben: move.l spritebufferl,dO 

swap dO 

clr.b dO 

cmp #$3000,d0 

bls.s joyout 

sub. I #$01000100,spritebuffer 1 

rts 

unten: move.l spritebufferl,dO 

swap dO 

clr.b dO 

cmp #$eft)0,d0 

bhs.s joyout 

add. I #$01000100,spritebuffer 1 

rts 


Ein weiterer Punkt ist das Auslesen der Feuerknöpfe. Die Abfrage 
des Joystickbuttons ist genau die gleiche wie die der Maus: 

button: btst #6,$bfe001 

bne.s button 

Die Abfrage für Port 1 liegt nur ein Bit weiter, nämlich: 

button: btst #7,$bfe00l 

bne.s button 
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6.2. TASTATUR-ABFRAGE 


Fast ebenso wichtig wie die Joystick-Abfrage ist die Auswertung der 
Tastatur. In dem in Band 1 vorgestellten Spiel kommt diese zwar 
nicht zur Anwendung, aber trotzdem ist dieses Kapitel interessant, 
da die Tastatur sehr häufig verwendet wird. 

Der Amiga besitzt ein intelligentes Keyboard mit einem eigenen 
Prozessor, der automatisch die Auswertung übernimmt. Wir müssen 
lediglich den Puffer, in welchem die Daten gespeichert werden, 
auslesen. 

Zuerst rettet man den Inhalt des Registers SbfecOl, in dem sich die 
zuletzt gedrückte Taste befindet und vergleicht anschließend diesen 
mit den Tastatur-Codes. 

loop: move.b $bfec01,d0 

cmp.b #$41,dO 

bne.s loop 

rts 

Dieses kurze Programm wartet solange, bis die Help-Taste gedrückt 
wurde. Die Codes für die verschiedenen Tasten entnehmen Sie bitte 
der untenstehenden Abbildung. Diese Abbildung entspricht der nor¬ 
malen Amiga 500 Tastatur. Es wurden aber auch schon andere 
Tastatur-Arten ausgeliefert z.B. beim Amiga 1000. Diese Tastaturen 
unterscheiden sich in der Anordnung der Tasten sowie in der Anzahl 
derselben. Es gibt Tastaturen, die um einige Tasten erweitert 
wurden. Wenn man obiges Programm so verändert, daß es den Wert 
der gerade gedrückten Zahl liefert, so kann man auch die Codes der 
nicht angeführten Tasten leicht ermitteln. 

Wie Sie vielleicht bemerkt haben, entsprechen die angegebenen 
Codes nicht den ASCII-Codes. Will man diese erhalten, muß man 
eine Tabelle anlegen, die jedem Code das passende ASCII-Zeichen 
zuordnet. 
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Bild 8: Die Tastatur 


|S751 | <5f | $5d I $5b I *39 | *57~1 1 <56 I »53 I <51 I *4f | S4d~l 
I Sff 1 |*fd|Sfb|*f9|«f 7|*f5|*f 3|*f l|*»f |*»dU»b|S»9|*g7|*g5l 

I S7b | [$dfI$dd|$db|$d9|sd7|$d5|$d3|$dll»cfltcdl<cb|$c9| [_ $77 
I $39 | |S3b|*bf|*bd|*bb|»b9|*b7|<b5|*b3|>bl|*af |*ad|**bl*a9Tl 
I >3f I |»9f l*9d|*9b|»99|*97l»95|*93|*9l|*8f |*8d|»8b| I <3d I 
I >37 | | $33 | | *7f | | »31 | | «35 1 

f*4b]|*49lf*47ll*45l 

|»B5||$83l[7iT||$feb| 

|*»S||*a3lls*l||*43| 

[$^5][7c3j [$cij[7^ 
f~ Sei I1<87|1 


1 *73 ||~*7d 1 
\*S7\ 

I $6ll | S65 | |$63| 


6.3. STERNENHIMMEL 

Ein ebenfalls sehr häufig verwendeter Effekt ist das Sternenscrol- 
ling. Wir wollen an dieser Stelle versuchen, diesen Effekt nachzu¬ 
programmieren. Folgendes Ziel wollen wir uns dabei setzen: 

80 Sterne sollen gleichzeitig über den Bildschirm bewegt 
werden. 

Sie sollen in unterschiedlichen Geschwindigkeiten aus 
der Bildschirmmitte dem Betrachter entgegenfliegen. 


Diese Aufgabenstellung hört sich schwieriger an, als sie in Wirk¬ 
lichkeit ist. Beginnen wir einmal mit dem Einfachsten, dem Erstellen 
eines Bildschirms mit nur einer Plane. Da unsere Sterne einfarbig 
sind, genügt uns eine Bitplane. 


Als nächstes legen wir eine Tabelle mit den Startkoordinaten für X 
und Y an. Diese Koordinaten geben die Ausgangspositionen unserer 
Sterne an: 

skorsx: dc.w 70,80,90,100,1 10,120,130,140,1 50,160 

de.w 75,89,34,45,145,123,23,43,100,139 


skorsy: dc.w 55,60,65,70,75,80,85,90,95,100 

dc.w 56,76,64,45,67,98,65,54,76,86 
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Diese Positionen sind willkürlich im Koordinatensystem gewählt 
und können geändert werden. In jeder Zeile sind 10 Werte einge¬ 
tragen, das bedeutet, daß noch 60 weitere fehlen, die wir der Ein¬ 
fachheit halber mit denselben Werten belegt haben. 

Es folgen zwei weitere Tabellen, die die Richtung und die Ge¬ 
schwindigkeit der Sterne innerhalb eines Quadranten festlegen. 


speed 1: dc.w 1,2,3,4,5,6,2,4,5,6 
dc.w 6,4,0,1,3,6,1,7,3,3 
dc.w -1 ,-2,-3,-4,-5,-6,-2,-4,-5,-6 
dc.w -6,-4,-0,-1 ,-3,-6,-1 ,-7,-3,-3 
dc.w -1 ,-2,-3,-4,-5,-6,-2,-4,-5,-6 
dc.w -6,-4,-0,-1 ,-3,-6,-1 ,-7,-3,-3 



dc.w 1,2,3/ 

,5,6,2,4,5,6 


dc.w 6,4,0,1 

,3,6,1,7,3,3 

speed2: 

dc.w 1,1,1.1 

,1,1,U,1,1 


dc.w 1,1,1,1 

,1,1,0,0.1.1 


dc.w 1,1,1,1 

,1.1,U,U 


dc.w 1,1,1,1 

,1,I,0,0,I,1 


dc.w -1,-1,- 

l,-l,-l,-l,-l,-l,-l,-l 


dc.w -1,-1,- 

111,_ 1,0,0,-1,-1 


dc.w -1,-1,- 

l,-l,-l,-l,-l,-l,-l,-l 


dc.w -1,-1,- 

l,-l,-l,-l,0,0,-u-l 

Widmen 

wir uns als nächstes der eigentlichen 


Erst retten wir sämtliche Register, indem wir diese auf dem Stack 
ablegen. 


movestars: 

movem.l d0-d7/a0-a6,-(a7) 

Der nächste Schritt ist das Einlesen der Koordinaten, sowie der 
Geschwindigkeitsparameter. Danach wird die Anzahl der Sterne in 
d7 übergeben. 
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lea 

skorsx(pc),aO 

lea 

skorsy( pc),al 

lea 

speed l(pc),a2 

lea 

speed2(pc),a3 

move.l 

#79,d7 


Nachdem wir alle Parameter in den einzelnen Registern übergeben 
haben, können wir in der nächsten Routine mit der Berechnung der 
richtigen Bildschirmposition beginnen. Die folgenden Zeilen erledi¬ 
gen diese Aufgabe für uns. Zuerst werden die Koordinaten mit denen 
der äußersten Ränder verglichen. Ist ein Stern über diese Koordinate 
bewegt worden, so wird er wieder auf die Ausgangsposition (x=l60, 
y=128) zurückgesetzt. Dieser Vergleich muß natürlich für alle vier 
Bildschirmseiten gemacht werden. 


starloop: 

move 

(aO),d() 


move 

(al).dl 


move 

(a2)+,d2 


move 

(a3)+,d3 


move 

d0.d4 


move 

dl.dS 


sub 

d2.d() 


sub 

d3,d 1 


cmp 

#370,d0 


ble.s 

nox 


move 

#l60,d0 


move 

# 128.d 1 


bra.s 

noy 

nox: 

cmp 

#9,d() 


bge.s 

nomix 


move 

#l60,d0 


move 

# 128,d 1 


bra.s 

nomiy 

nomix: 

cmp 

#270,d 1 


ble.s 

noy 


move 

# I60,d0 
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move 

# 128,d 1 


bra.s 

nomiy 

noy: 

cmp 

#9,dl 


bge.s 

nomiy 


move 

#160,d0 


move 

#l28,dl 

nomiy: 

move.w 

d().(a0) 


move.w 

dl,(al)+ 

Der letzte Schritt ist 

das Berechnen der Bildschirmposition, sowie 


das Löschen des zuletzt bewegten Sterns und das Setzen des neuen 
Punktes. Somit wäre unsere Routine für einen Stern komplett. Damit 
der Computer aber 80 Sterne bewegt, müssen wir am Ende mit einer 
dbf-Schleife den Vorgang weitere 79 Male wiederholen. Abschlie¬ 
ßend werden die geretteten Register wieder zurückgeschrieben. 


mulu 

#48,d5 

Isr.w 

#3,d4 

lea 

pic(pc),a5 

add 

d4,a5 

add 

d5.a5 

clr.b 

(a5) 

lea 

pic(pc),a5 

Isr.w 

#3,d0 

mulu 

#48,dl 

add 

d0,a5 

add 

dl,a5 

move.w 

(a0)+,d0 

and.w 

#$7,d() 

move.l 

#128,dl 

Isr.l 

dü.dl 

move.b 

dl,(a5) 
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dbf d7, starloop 

movem. I (a7)+,d0-d7/a0-a6 
rts 

Die Stern-Routine hätten wir somit fertiggestellt. 80 Punkte fliegen 
von der Bildschirmmitte dem Betrachter quasi entgegen. Da sie in 
verschiedenen Geschwindigkeiten bewegt werden, wirkt unser 
kleines Weltall fast realistisch. Um diesen 3D-Effekt noch zu ver¬ 
stärken, werden wir den Sternen verschiedene Farben geben (Hellig¬ 
keitsstufen), damit der Eindruck erweckt wird, als ob einige weiter 
im Hintergrund bewegt werden. Diesen Effekt werden wir ohne Zu¬ 
hilfenahme einer weiteren Bitplane programmieren, sondern wir 
werden dazu den Copper verwenden. Wie schon aus der unten ste¬ 
henden Skizze ersichtlich, verwenden wir zwei Farb-Copperlisten, 
wobei eine von oben nach unten und die andere von unten nach oben 
gescrollt wird. Zuerst müssen diese Listen initialisiert werden. 


Bild <= l : Sternenhimmel 



Copperliste 1 wird von 
der Bildschirmmi t te 
nach oben beweg t. 

i Copperliste 2 wird von 
der Bildschirmmitte 
nach unten bewegt. 


initcopper: lea 

move 

move 

coppercopy: 

move 

move 

move 

add.w 

move 

add 

dbf 


cins(pc),a0 

#$0001,d0 

#159,dl 

d0,(a0)+ 
#$fffe,(a0)+ 
#$0182,(a0)+ 

# I ,d2 
d2,(a0)+ 
#$0100,d0 
d 1 ,coppercopy 
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Die oben stehende Copperliste erstellt pro Bildschirmzeile einen 
Wait- und einen Farb-Move-Befehl. Die zweite Copperliste wird 
analog dazu installiert. Sehen wir uns als nächstes jene Routien an, 
die die Farben der Copperliste scrollt: 


scrollcopperl: 

lea 

move.l 

cmp.w 

bne.s 

move.l 

move.l 

dascroll: move.w 
scrollen: move.w 
cmp.w 
bne.s 
lea 

dascrollemadd.l 

dbf 

add.l 

rts 


cins+6(pc),a0 

colorptrl(pc),al 

#$ffff,(al) 

dascroll 

#colorl,colorptrl 

colorptrl(pc),al 

#159,d0 

(al)+,(aO) 

#$ffff,(a 1) 

dascrollen 

colorl(pc),al 

#8,a0 

dO,scrollen 

#2,colorptrl 


Als Abschluß finden Sie das komplette Listing, das 80 Sterne dar¬ 
stellt, in verschiedenen Geschwindigkeiten auf dem Bildschirm 
bewegt, sowie durch den Trick mit zwei Copperlisten den Effekt der 
verschiedenen Flelligkeitsstufen erzeugt. 

; Sternenhimmel 


s: 

bsr.s 

opening 


bsr.l 

initcopper 

loop: 

move.l 

$dffK)04,d0 


and.l 

#$fffOO,dO 


cmp.l 

#$00003000,d0 
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bne.s 


bsr.l 


bsr 


bsr 


btst 


bne.s 

end: 

niove.w 

e: 

rts 

opening: 

move.w 


move.l 


move.w 


move.l 


move 


swap 


move 


rts 

* 

copperl: 

dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 


dc.w 

PH: 

dc.w 


dc.w 


dc.w 

eins: 

blk.w 

cins2: 

blk.w 


dc.w 


loop 

movestars 
scrollcopperl 
scrollcopper2 
#6,$bfe001 
loop 

#$c000,$dffl09a 


#$4000,$dff09a 

#copperl,$dff084 

#$20,$dff096 

#pic,dO 

dO,pl 1+6 

dO 

d(),pl I +2 


$008e,$2071 
$0090,$20d4 
$0092,$0038 
$0094,$00d0 
$ 0102,$0000 
$0104,$0024 
$0108,$0008 
$010a,$0008 
$0100,$ 1200 
$00e0,$0000 
$00e2,$0000 
$0180,$0000 
640,0 
640,0 
$ffff,$fffe 
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initcopper: lea cins(pc),aO 

move #$000l,d0 

move #I59,dl 

coppercopy: 

move dO,(aO)+ 

move #$fffe,(aO)+ 

move #$0182,(a0)+ 

add.w #l,d2 

move d2,(a0)+ 

add #$0100,d0 

dbf d 1 ,coppercopy 

lea cins2(pc),a0 

move #$a001,d0 

move #!59,dl 

coppercopy 1: 

move d0,(a0)+ 

move #$fffe,(a0)+ 

move #$0182,(a0)+ 

add.w #l,d2 

move d2,(a0)+ 

add #$0100,d0 

dbf d 1 ,coppercopy 1 

rts 

scrollcopperl: 

lea cins+6(pc),a0 

move.l colorptr 1 (pc),a 1 

cmp.w #$ffff,(al) 

bne.s dascroll 

move.l #colorl,colorptr 1 

move.l colorptr l(pc),al 

dascroll: move.w # 159,d0 
scrollen: move.w (al)+,(a0) 

cmp.w #$ffff,(al) 

bne.s dascrollen 

lea colorl(pc),al 
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dascrollen:add.l 

dbf 

add.l 

rts 


#8,a0 

dO, scrollen 
#2,colorptrl 


scrollcopper2: 

lea cins2+1278(pc),a0 

move.l colorptr2(pc),al 

cmp.w #$ffff,(al) 

bne.s dascroll2 

move.l #color2,colorptr2 

move. I colorptr2( pc ),a 1 

dascroll2: move.w #159,d0 
scrollen2: move.w (al )+,(a0) 

cmp.w #$ffff,(al) 

bne.s dascrollen2 

lea color2(pc),al 

dascrollen2: 

sub.l #8,a0 

dbf d0,scrollen2 

add.l #2,colorptr2 

rts 

colorptrl: de. 1 colorl 

color I: dc.w $fff,$eee,$ddd,$ccc,$bbb,$aaa,$999,$888 

dc.w $777,$666,$555,$444,$333,$222,$111 ,$000 
dc.w $000,$ I 1 I ,$222,$333,$444,$555,$666,$777 
dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff 
dc.w $ffff 


colorptr2: de.I color2 

color2: dc.w $fff,$eee,$ddd,$ccc,$bbb,$aaa.$999,$888 

dc.w $777,$666,$555,$444,$333,$222,$11 1 ,$000 
dc.w $000,$ I 1 1 ,$222,$333,$444,$555,$666,$777 
dc.w $888,$999,$aaa,$bbb,$ccc,$ddd,$eee,$fff 
dc.w $ffff 
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movestars: movem.l d0-d7/a0-a6,-(a7) 



lea 

skorsx(pc),aO 


lea 

skorsy(pc),al 


lea 

speed l(pc).a2 


lea 

speed2(pc),a3 


move.l 

#79,d7 

starloop: 

move 

(aO).dO 


move 

(al).dl 


move 

(a2)+,d2 


move 

(a3 )+,d3 


move 

d0,d4 


move 

dl,d5 


sub 

d2,d0 


sub 

d3.dl 


cmp 

#370,d0 


ble.s 

nox 


move 

#l60,d0 


move 

#l28.dl 


bra.s 

noy 

nox: 

cmp 

#9,d0 


bge.s 

nomix 


move 

#!60,d0 


move 

#l28,dl 


bra.s 

nomiy 

nomix: 

cmp 

#270,dl 


ble.s 

noy 


move 

# 160,d0 


move 

#128.dl 


bra.s 

nomiy 

noy: 

cmp 

#9,d1 


bge.s 

nomiy 


move 

#160,d0 


move 

#128,dl 

nomiy: 

move.w dO,(aO) 


move.w d 

l,(al)+ 
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mul u 

#48.d5 

Isr.vv 

#3.d4 

lea 

pic(pc),a5 

add 

d4.a5 

add 

d5,a5 

ctr.b 

(a5) 

lea 

pic(pc),a5 

Isr.w 

#3,d0 

mul u 

#48,dl 

add 

d0,a5 

add 

d 1 ,a5 

move.vv 

(a0)+.d0 

and.vv 

#$7.d0 

move.l 

#l28.dl 

Isr.l 

d().d 1 

move.b 

dl,(a5) 

dbf 

d7,starloop 

movem.l (a7)+,d0-d7/a0-a6 


rts 

peedl: dc.w 1,2.3,4,5,6,2,4,5,6 

dc.vv 6,4,0.1,3,6,1.7,3,3 

dc.w -1 ,-2.-3,-4.-5,-6,-2,-4.-5,-6 
dc.w -6.-4.-0,-1 ,-3.-6,-1 ,-7,-3.-3 


dc.w -1 ,-2.-3.-4,-5,-6,-2,-4.-5,-6 
dc.w -6.-4.-0,-1 .-3.-6.-1 .-7.-3.-3 


dc.w I.2.3.4.5.6.2.4.5.6 
dc.w 6,4,0,1,3,6,1,7,3,3 
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speed2: dc.w 1,1,1,1.1, 

1.1.1.1.1 

dc.w 1.1,1,1.1. 

1.0.0.1.1 

dc.w 1,1,1,1,1, 

1,1.1.1.1 

dc.w 1,1,1,1,1. 

1,0,0,1,1 

dc.w -1 ,-1.-1,- 

l,-l,-l,-!,-l,-l,- 

dc.w -1,-1,-K- 

1,-1,-1,0,0,-1,-1 

dc.w -l.-l.-l,- 

l.-l,-l,-l,-l,-l,- 

dc.w -1.-1,-!.- 

1,-1,-1,0,0,-1,-1 


skorsx: dc.w 70.80.90.100,1 10.120.130.140.150.160 

dc.w 75.89.34.45.145.123.23,43.100.139 

dc.w 70,80,90.100.1 10,120.130.140,150,160 
dc.w 75,89,34,45,145,123,23,43,100,139 

dc.w 70.80,90,100,1 10.120,130,140.150,160 
dc.w 75.89.34.45,145.123,23,43,100,139 

dc.w 70,80,90,100,1 10,120,130.140.150.160 
dc.w 75.89.34,45.145.123,23,43,100,139 

skorsy: dc.w 55,60,65.70,75,80.85.90,95.100 

dc.w 56,76,64.45.67,98,65.54.76.86 

dc.w 55,60,65,70,75.80.85.90,95,100 
dc.w 56,76.64,45,67,98,65,54,76,86 

dc.w 55,60.65,70,75,80.85,90,95.100 
dc.w 56.76,64.45,67.98,65.54,76.86 

dc.w 55,60,65,70,75.80,85,90,95,100 
dc.w 56,76,64.45,67.98.65.54,76.86 

pic: blk.b 12240.0 













6.4. ANREGUNGEN 


Dieses Kapitel soll Ihnen weitere Anregungen zum Thema "Spiele- 
programmierung" geben. Auf den folgenden Seiten sind einige Vor¬ 
schläge zur Verbesserung bzw. zur Erweiterung der Programme 
aufgeführt, die Sie in Band I und Band 2 von "Spiele selber pro¬ 
grammieren" finden konnten. Mit den bis jetzt erworbenen Kennt¬ 
nissen müßten Sie in der Lage sein, die folgenden Änderungen vor¬ 
zunehmen. 

1) Zwei- oder Drei-Spielermodus 

Unser kleines Spiel ist nur für einen Spieler, der gegen den Com¬ 
puter antritt, ausgelegt. Sie können nun einen zweiten Spieler mit ei¬ 
nem in Port 0 angeschlossenen Joystick programmieren. Dazu müs¬ 
sen Sie lediglich die Routinen für die Joystick-Abfrage von Port I 
kopieren und für Port 0 umändern, indem Sie das Register SdfföOa 
verwenden. 

Sogar ein dritter Spieler könnte in das Spielgeschehen eingreifen, 
wenn Sie seine Bewegungen über die Tastatur ein lesen. Ebenfalls 
könnte man den Spieler selbst wählen lassen, mit welchen Tasten er 
sein Symbol lenken möchte, indem man ihn am Anfang die Tasten 
selbst definieren laßt. Hat man nun mehrere Spieler gleichzeitig, so 
müssen natürlich auch die Kollisionen darauf eingerichtet werden. 

2) Sternenhimmel Titelbild 

Das BeispielIisting Sternenhimmel steht mit unserem Spiel (siehe 
Band I) nicht in Zusammenhang. Man könnte sich diesen netten 
Effekt aber als Titelvorspann zunutze machen. Nachdem man das 
Spiel gestartet hat, erscheint nicht gleich das Spielfeld, sondern ein 
schwarzer Bildschirm aus dessen Tiefe Sterne erscheinen. Ebenso 
könnte man den Titel in den Hintergrund einblenden. Um das zu er¬ 
reichen, müssen Sie eine zweite Copperliste anlegen. Die richtige 
Copperliste, die zum Hauptprogramm gehört, wird erst nach dem 
Druck auf den Joystick aktiviert, dadurch schaltet der Computer zwi¬ 
schen Sternen und Spiel um. Wenn man die Sterne ebenfalls im 
Dual-Playfield-Modus programmiert, könnte man im zweiten Play- 
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field den Titel des Spieles einblenden. Im Dual-Playfield-Modus 
kann man maximal 3 Bitplanes verwenden, das entspricht 8 Farben. 


3) Attached Sprites 

Da wir nur vier Sprites für unser Spiel verwenden, ist der Einsatz 
von Attached Sprites tur alle vier Symbole möglich. Nur muß be¬ 
achtet werden, daß auch die Bits für die ungeraden Sprites bei der 
Kollision gesetzt werden müssen, damit diese zugelassen werden 
(Register $dffl)98). Auch ist es dann nicht mehr möglich, mehrere 
Spieler mit Sprites zu erschaffen, denn es kann nur maximal vier 
Attached Sprites geben. 

4) Soundeffekte 

Im Kapitel Sound-Programmierung wurde die Anwendung und das 
Abspielen von Samples besprochen. Während dem Programm läuft 
ein Sample als Hintergrund-Musik. Als kleine Steigerung können 
Sie mit einem Soundsampler mehrere Klänge und Geräusche sam¬ 
peln und bei einer Kollision abspielen. Ein ganz netter Effekt ist 
auch eine gesampelte Stimme, die bei einer Kollision gespielt wird. 

4) Blitter-Einsatz 

Das in Band I enthaltene Spielelisting bedient sich in keinster Weise 
des Blitters, da dieser erst in Band 2 besprochen wurde. Nun sollten 
Sie aber schon genügend Wissen haben, um den Blitter auch in 
unserem kleinen BeispielIisting zu verwenden. 

Es wird ein kleines Datenfeld nach jeder Explosion des Spielers 
kopiert: Nämlich das Datenfeld, in dem die Zahl der Leben steht. 
Diese Aufgabe wird noch vom Prozessor übernommen. Im 
Beispielprogramm des Kapitels "Einfaches Kopieren" wird dieser 
Vorgang mit dem Blitter demonstriert. Ersetzen Sie diese Routinen 
auch im Spiel! 
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ANHANG 


I. ÜBERSICHT DER HARDWARE-REGISTER 

Das wohl wichtigste für Spiele-Progranimierer sind die Hardware- 
Register. In diesem Kapitel finden Sie eine Auflistung aller Hard¬ 
ware-Register des Amiga. 

NAME ADRESSE FUNKTION 


BLTDDAT SdffOOO Blitter Destination Data 

DMACONR $dff002 DMA Control Read 

VPOSR $dftX)04 Vertieal Position Read 

VIIPOSR $dffü06 Vert. and horiz. Position Read 
DSKDATR $dff008 Disk data read 

JOYODAT SdfföOa Joy-Port 0 data 

JOYI DAT SdffOOc Joy-Port I data 

CLXDAT SdffDOe Collision data 

ADKCONR SdffOK) Audio Disk Control Read 

POTODAT $dfft) 12 PotO Dat a 

POTI DAT $dff() 14 Poti Data 

POTGOR $dffO 16 Pot data read 

SERDATR $dfP0 18 Serial data read 

DSKBYTR SdffDIa Disk data byte read 

INTENAR Sdffölc Interrupt enable bits read 

INTREQR SdffOle Interrupt request bits read 

DSKPTH $dffö20 Disk pointer high 

DSKPTE $dff022 Disk pointer low 

DSKLEN $dffö24 Disk data length 

DSKDAT $dff026 Disk DMA data write 

REFPTR $dff028 Refresh pointer 

VPOSW $dffö2a Vertieal Position write 

VHPOSW $dfP02c Vert. and horiz. Pos. write 

COPCON $dff()2e Coprozessor control register 

SF.RDAT $dffö30 Serial port data 
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SERPER 

$dff032 

Serial port period 

POTGO 

$dffö34 

Pot port data write and go 

JOYTEST 

$dffD36 

Joy port Test 

STREQU 

$dff038 

Strobe for hsync with VB and EQU 

STR V BL 

$dffl)3a 

Strobe for horiz. sync with VB 

STRHOR 

$dftT)3c 

Strobe for horiz. sync 

STRLONG 

$dffD3e 

Strobe for identific. of long horiz. line 

BLTCONO 

$dffl04O 

Blitter control register 0 

BLTCON1 

$dffö42 

Blitter control register 1 

BLTAFWM 

$dffö44 

Blitter first word mask for A 

BLTALWM 

$dffö46 

Blitter last word mask for A 

BLTCPTH 

$dff\)48 

Blitter pointer high to C 

BLTCPTE 

$dffö4a 

Blitter pointer low to C 

BLTBPTH 

$dffö4c 

Blitter pointer high to B 

BLTBPTL 

$dff04e 

Blitter pointer low to B 

BLTAPTII 

Sdrroso 

Blitter pointer high to A 

BLTAPTL 

$dfP052 

Blitter pointer low to A 

BLTDPTH 

$dffö54 

Blitter pointer high to D 

BETDPTE 

$dfft)56 

Blitter pointer low to D 

BETSIZE 

$dffö58 

Blitter size and Start 


$dff05a 

nicht belegt 


$dff05c 

nicht belegt 


$dftX)5e 

nicht belegt 

BLTCMOD 

$dff060 

Blitter modulo C 

BLTBMOD 

$dfft)62 

Blitter modulo B 

BLTAMOD 

$dffD64 

Blitter modulo A 

BLTDMOD 

$dffö66 

Blitter modulo D 


$dfE068 

nicht belegt 


$dffö6a 

nicht belegt 


$dfE06c 

nicht belegt 


$dftt)6e 

nicht belegt 

BLTCDAT 

$dfft)70 

Blitter C data register 

BLTBDAT 

$dff072 

Blitter B data register 

BLTADAT 

$dtTO74 

Blitter A data register 


$dff076 

nicht belegt 


$dff078 

nicht belegt 
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DSK.SYNC 

$dffö7a 

$dff07c 

$dft07e 

COPILC'H 

$dff080 

COP1LCL 

$dffl)82 

COP2LCH 

$dffl)84 

COP2LCL 

$dftK)86 

COPJMPI 

$dfrt)88 

COPJMP2 

$dfP08a 

COPINS 

$dffl)8c 

DIWSTRT 

$dfP08e 

Dl W STOP 

$dff090 

DDFSTRT 

$dfP092 

DDFSTOP 

$dff094 

DMACON 

$dff096 

CLXCON 

$dftD98 

INTENA 

$dfft)9a 

INTRF.Q 

$dff()9c 

ADKCON 

$d ffö9e 

AUDOLCH 

SdffOaO 

AUDOLCL 

$dff0a2 

AU DOLEN 

$dft0a4 

AUDOPER 

SdtTOaö 

AUDOVOL 

SdfFOaS 

AlJDODAT 

SdHOaa 

AUDILCH 

$dffl)ac 

SdffOae 

SdflBbO 

AUDI LCL 

$dfl'0b2 

AUDI LEN 

$dfföb4 

AUDI PER 

$dff()b6 

AUDI VGL 

$dfP0b8 

AUDI DAT 

SdffOba 

AUD2LCH 

SdffObc 

SdffObe 

SdffOcO 


nicht belegt 
nicht belegt 

Disk Synchronisation pattern 
Copper first location high 
Copper first location low 
Copper second location high 
Copper second location low 
Restart Copper first location 
Restart Copper sec. location 
Copper instruction fetch 
Display windovv Start 
Display window stop 
Display data fetch Start 
Display data fetch stop 
DMA control register 
Collision control 
Interrupt enable bits 
Interrupt request bits 
Audio and disk control 
AudioO location high 
AudioO location low 
AudioO data length 
AudioO period 
AudioO volume 
AudioO data register 
nicht belegt 
nicht belegt 
AudioI location high 
AudioI location low 
Audio 1 data length 
Audio I period 
Audio I volume 
Audio 1 data register 
nicht belegt 
nicht belegt 
Audio2 location high 
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AUD2LCL 

SdffX)c2 

AUD2LEN 

$dff0c4 

AUD2PER 

$dff0c6 

AUD2VOL 

SdffX)c8 

AIJD2DAT 

Sdfföca 


SdftXJcc 


Sdfföce 

AUD3LCH 

SdffOdO 

AUD3LCL 

$dt'f0d2 

ALID3LEN 

$dff0d4 

AUD3PER 

$dfföd6 

AUD3VOL 

$dff0d8 

AUD3DAT 

Sdffüda 


SdfTOdc 


$dffX)de 

BPL1PTH 

SdffDeO 

BPL1PTL 

$dfföe2 

BPL2PTH 

SdffX)e4 

BPL2PTL 

SdflX)e6 

BPL3PTH 

$dffX)e8 

BPL3PTL 

$df(X)ea 

BPL4PTH 

$dftX)ec 

BPL4PTL 

SdftX)ee 

BPL5PTH 

$dffX)tX) 

BPL5PTL 

$dflX)f2 

BPL6PTH 

$dftX)f4 

BPL6PTL 

$dffX)f6 


SdfTOffi 


SdffOfa 


Sdfföfc 


SdffDfe 

BPLCONO 

$dffl 00 

BPLCON1 

Sdffl 02 

BPLCON2 

$dffl 04 


Sdffl 06 

BPL1MOD 

Sdffl 08 


Audio2 location low 
Audio2 data length 
Audio2 period 
Audio2 volume 
Audio2 data register 
nicht belegt 
nicht belegt 
Audio3 location high 
Audio3 location low 
Audio3 data length 
Audio3 period 
Audio3 volume 
Audio3 data register 
nicht belegt 
nicht belegt 
Bitplane 1 pointer high 
Bitplanei pointer low 
Bitplane2 pointer high 
Bitplane2 pointer low 
Bitplane3 pointer high 
Bitplane3 pointer low 
Bitplane4 pointer high 
Bitplane4 pointer low 
BitplaneS pointer high 
Bitplane5 pointer low 
Bitplaneö pointer high 
Bitplane6 pointer low 
nicht belegt 
nicht belegt 
nicht belegt 
nicht belegt 

Bitplane control register 0 
Bitplane control register 1 
Bitplane control register 2 
nicht belegt 
Bitplane Modulo I 
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BPL2MOD 

$d ffl Oa 
SdfflOc 
Sdffl Oe 

BPLI DAT 

$d ffl 10 

BPL2DAT 

$d t'f 1 12 

BPL3DAT 

$dffl 14 

BPL4DAT 

$dffl 16 

BPL5DAT 

$dffl 18 

BPL6DAT 

$dffl la 
Sdffl Ic 
$dffl le 

SPROPTH 

Sdffl 20 

SPROPTL. 

Sdffl 22 

SPRIPTH 

Sdffl 24 

SPRIPTL 

Sdffl 26 

SPR2PTH 

Sdffl 28 

SPR2PTL 

Sdffl 2a 

SPR3PTH 

Sdffl 2c 

SPR3PTL 

Sdffl 2e 

SPR4PTH 

Sdffl 30 

SPR4PTL 

Sdffl 32 

SPR5PTH 

Sdffl 34 

SPR5PTL 

Sdffl 36 

SPR6PTH 

Sdffl 38 

SPR6PTL 

Sdffl 3 a 

SPR7PTH 

Sdffl 3c 

SPR7PTL 

Sdffl 3e 

SPROPOS 

Sdffl 40 

SPROCTL 

Sdffl 42 

SPRODATA 

Sdffl 44 

SPRODATB 

Sdffl 46 

SPRIPOS 

Sdffl 48 

SPRICTL 

Sdffl 4a 

SPRIDATA 

Sdffl 4c 

SPR1DATB 

Sdffl 4e 

SPR2POS 

Sdffl 50 


Bitplane Modulo 2 
nicht belegt 
nicht belegt 
Bitplane I data 
Bitplane2 data 
Bitplane3 data 
Bitplane4 data 
Bitplane5 data 
Bitplane6 data 
nicht belegt 
nicht belegt 
SpriteO pointer high 
SpriteO pointer low 
Spritei pointer high 
Spritei pointer low 
Sprite2 pointer high 
Sprite2 pointer low/ 
Sprite3 pointer high 
Sprite3 pointer low/ 
Sprite4 pointer high 
Sprite4 pointer low/ 
Sprite5 pointer high 
Sprite5 pointer low 
SpriteO pointer high 
SpriteO pointer low 
Sprite7 pointer high 
Sprite7 pointer low 
SpriteO Start position 
SpriteO control data 
SpriteO image data A 
SpriteO image data B 
Spritei Start position 
Spritei control data 
Spritei image data A 
Spritei image data B 
Sprite2 Start position 
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SPR2CTL 

$dff 152 

SPR2DATA 

$dff 154 

SPR2DATB 

$dffl 56 

SPR3POS 

$dff 158 

SPR3CTL 

$dff 15a 

SPR3DATA 

Sdffl 5c 

SPR3DATB 

Sdffl 5e 

SPR4PÜS 

Sdffl 60 

SPR4CTL 

Sdffl 62 

SPR4DATA 

Sdffl 64 

SPR4DATB 

Sdffl 66 

SPR5POS 

Sdffl 68 

SPR5CTL 

Sdffl 6a 

SPR5DATA 

Sdffl 6c 

SPR5DATB 

Sdffl 6e 

SPR6POS 

Sdffl 70 

SPR6CTL. 

Sdffl 72 

SPR6DATA 

Sdffl 74 

SPR6DATB 

Sdffl 76 

SPR7POS 

Sdffl 78 

SPR7CTL 

Sdffl 7a 

SPR7DATA 

Sdffl 7c 

SPR7DATB 

Sdffl 7e 

COLOROO 

Sdffl 80 

COLOROl 

Sdffl 82 

COLOR02 

Sdffl 84 

COLOR03 

Sdffl 86 

COLOR04 

Sdffl 88 

COLOR05 

Sdffl 8a 

COLOR06 

Sdffl 8c 

COLOR07 

Sdffl 8e 

COLOR08 

Sdffl 90 

COLOROO 

Sdffl 92 

COLOR 10 

Sdffl 94 

COLOR 1 1 

Sdffl 96 

COLOR 12 

Sdffl 98 


Sprite2 control data 
Sprite2 image data A 
Sprite2 image data B 
Sprite3 Start position 
Sprite3 control data 
Sprite3 image data A 
Sprite3 image data B 
Sprite4 Start position 
Sprite4 control data 
Sprite4 image data A 
Sprite4 image data B 
SpriteS Start position 
Sprite5 control data 
Sprite5 image data A 
Sprite5 image data B 
Spriteö Start position 
Sprite6 control data 
Spriteö image data A 
Spriteö image data B 
Sprite7 Start position 
Sprite7 control data 
Sprite7 image data A 
Sprite7 image data B 
Color register 00 
Color register 01 
Color register 02 
Color register 03 
Color register 04 
Color register 05 
Color register Oö 
Color register 07 
Color register 08 
Color register 09 
Color register 10 
Color register I I 
Color register 12 
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FEHLERMELDUNGEN: 


Datei konnte nicht geöffnet werden! 

Der angegebene Dateiname ist entweder falsch, das Verzeichnis 
wurde nicht korrekt angegeben, oder das File existiert nicht. 

Breite zu groß oder zu klein (1-20). 

Es wurde eine unkorrekte Breite angegeben. 

Höhe zu groß oder zu klein (1-256). 

Die Angabe der Höhe ist falsch. 

Planeanzahl zu groß oder zu klein (1-5). 

Die Planeanzahl stimmt nicht. 
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Datei laden 


MIM 


Datei sichern "s" 


Hilfe "h" 

Bild ansehen "a" 


Ende M x" 


Es wird ein bereits ins RAW-Format 
konvertiertes Bild (kein IFF-Bild!) ge¬ 
laden. Dabei sind folgende Angaben zu 
machen: 

Name der Datei: Pfad/Name des Bildes 
Breite in Words: Breite des Bildes in 
Words (320 Pixel = 20 
Words). 

Höhe: Höhe des Bildes in Zeilen. 
Anzahl der Planes: Zahl der verwende¬ 
ten Bitplanes. 

Neben- (n) oder Unter- (Return) oder x: 
Hier kann selektiert werden, ob die Bit¬ 
planes, die geladen werden, unterein¬ 
ander, oder nebeneinander liegen. Will 
man ein gerade erst umgewandeltes 
RAW-Bild laden, liegen die Bitplanes 
untereinander. 

Eine fertig konvertierte Datei wird ge¬ 
speichert. Dabei sind folgende Angaben 
zu machen: 

Name der Datei: Pfad/Name des Bildes. 
Neben- (n) oder Unter- (Return) oder x: 
Hier wird selektiert, wie das vorliegen¬ 
de Bild abgespeichert werden soll, ent¬ 
weder untereinander oder nebenein¬ 
ander. 

Gibt eine kurze Information aus. 

Mit dieser Funktion kann das zuletzt 
geladene Bild betrachtet werden. 

Programmende 
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1. Zeile der ersten Plane 
1. Zeile der zweiten Plane 

1. Zeile der dritten Plane 

2. Zeile der ersten Plane 
2. Zeile der zweiten Plane 

2. Zeile der dritten Plane 

3. Zeile der ersten Plane 


Einfach gesagt, muß man lediglich die Zeilen umkopieren, sodaß aus 
dem ersten Schema das zweite Schema wird; diese Arbeit über¬ 
nimmt der Bitplane-Mixer. 


BEDIENUNG: 

Das Programm bietet Ihnen einige Funktionen, die ein schnelles 
Bearbeiten der Bitplanes ermöglichen. Die einzelnen Kommandos 
werden über die Tastatur eingegeben. Wichtig ist, daß diese 
Kommandos in Kleinbuchstaben eingegeben werden. 

Funktion Kommando Beschreibung 


dir "dir" Gibt den Inhalt des aktuellen Verzeich¬ 

nisses auf dem Bildschirm aus. Wichtig 
ist, daß im Root-Verzeichnis der CLI- 
Befehl "dir" vorhanden ist, da dieser 
nachgeladen wird. Wird der dir-Befehl 
nicht gefunden, kann das Directory 
auch nicht angezeigt werden. 
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III. BITPLANE-MIXER 


EINLEITUNG: 

Wenn man ein IFF-Bild ins RAW-Format umwandelt (z.B.: mit dem 
IFF-CONVERT-UTILITY), werden die Bitplanes untereinander im 
Speieher abgelegt. 

1. Zeile der ersten Plane 

2. Zeile der ersten Plane 


x. Zeile der ersten Plane 

1. Zeile der zweiten Plane 

2. Zeile der zweiten Plane 


x. Zeile der zweiten Plane 


Will man aber mehrere Bitplanes mit nur einem Blitterstart kopie¬ 
ren, müssen diese in einem anderen Format abgelegt sein (siehe dazu 
Kapitel Tips & Tricks zum Blitter). Die Bitplanes müssen dazu 
zeilenweise hintereinander abgelegt sein. 
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Das Bild kann nicht angezeigt werden! Illegale Breite! 

Das Bild ist zu breit und wird deshalb vom Programm nicht auf dem 
Monitor angezeigt. Es wird aber trotzdem richtig ins RAW-Format 
umgewandelt! 
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-BILD ANSEHEN 

Mit diesem Gadget können Sie ein geladenes Bild betrachten. Falls 
Sie ein Bild laden, das breiter ist als 320 Pixel, wird es nicht 
dargestellt, aber natürlich korrekt ins RAW-Format übertragen. 

-COLORMAP 

Dieser Schalter ist zum Ein- und Ausschalten der Farbtabelle ge¬ 
dacht, welche jedem IFF-Bild beigefügt ist. In dieser Tabelle stehen 
die Farbwerte des jeweiligen Bildes. Das 1FF-CONVERT-UTILITY 
bietet die Möglichkeit, diese Farbtabelle am Ende des Bildes anzu¬ 
hängen und mitzuspeichern (Colormap ein), oder gänzlich wegzulas¬ 
sen (Colormap aus). Denn vor allem bei der Programmierung ist 
oftmals die Farbtabelle nicht notwendig. In der Grundeinstellung ist 
sie eingeschaltet. 


FEHLERMELDUNGEN: 

Im Kästchen STATUS werden vom Programm Fehlermeldungen, 
beziehungsweise andere Programmschritte, angeführt. 

Leider nicht genug Speicher vorhanden! 

Der Speicherplatz hat nicht ausgereicht, um das angegebene Bild zu 
laden. Dies kann passieren, wenn man übergroße Bilder laden will 
oder nebenbei andere Programme laufen hat. 

Kein IFF-Format! 

Das zu ladende File ist kein IFF-Bild. 

Das angegebene File existiert nicht! 

Das File wurde nicht gefunden, oder es wurde kein Name 
angegeben. 
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im Speicher liegt. Daher verwendet man gleich das RAW-Format. 
Außerdem werden eigene Programme meistens mit einem Cruncher 
gepackt, sodaß dieser Platzverlust wieder wettgemacht wird. Für die 
in diesem Buch beschriebenen Beispiele ist es wichtig, selbsterstellte 
Bilder vom IFF-, ins RAW-Format umzuwandeln. Ebenso können 
Sie eigene Schriften und Bilder für Demos erzeugen. 

Achtung: Das IFF-Convert-Utility ist nicht für die Konvertierung 
von Bildern mit 256-Farben ausgelegt! 


DIE BEDIENUNG 

Folgende Funktionen stehen zur Verfügung: 

- LADEN 

Wenn Sie dieses Gadget anklicken, wird ein IFF-Bild nachgeladen. 
Der Name muß vorher natürlich in der Zeile NAME DES IFF- 
BILDES: eingegeben werden. Nach dem Laden ist das Bild schon 
fertig konvertiert und kann sofort gespeichert werden. 

- SPEICHERN 

Hier wird das bereits entpackte Bild als RAW-FORMAT abge¬ 
speichert. Und zwar unter dem Namen, den Sie in der Zeile NAME 
DES RAW-BILDES: angegeben haben. 

-CONVERT 

Diese Funktion vereint die beiden oberen. Das kann oft sehr nützlich 
sein, wenn man mehrere Laufwerke besitzt, oder das IFF- und das 
RAW-Bild auf der gleichen Diskette bearbeiten will. Geben Sie 
zuerst in den dafür vorgesehenen Zeilen die Namen der Bilder ein 
und drücken Sie CONVERT. Dann wird zuerst das IFF-Bild 
geladen, umgewandelt und anschließend sofort gespeichert. 
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II. IFF-CONVERT-UTILITY 


EINLEITUNG 

Mit dem IFF-CONVERT-UTILITY ist es möglich, IFF-Bilder, die 
mit einem Malprogramm, z.B. DPaint erstellt wurden, in das RAW- 
Format umzuwandeln. Nun, welchen Sinn hat das? Ganz einfach: 
Der Videochip kann nur das RAW-Format verarbeiten. Das bedeu¬ 
tet, daß das Bild im Speicher unseres Computers als RAW-Format 
vorliegen muß, damit es dargestellt werden kann. Wird ein mit 
DPaint gezeichnetes Bild abgespeichert, so kommt das IFF-Format 
zur Anwendung. 

Vielleicht ist es Ihnen schon aufgefallen, daß Ihre Bilder trotz Ver¬ 
wendung derselben Auflösung (z.B. LoRes 320x200) unterschied¬ 
lich viel Platz auf der Diskette einnehmen. Das liegt daran, daß das 
IFF-Format die Bilder komprimiert. Dies basiert auf dem Schema 
der Wiederholung. Befindet sich im Bild eine Zeichenfolge, die 
gleichlautend ist, wird diese nicht vollständig übernommen, sondern 
es wird die Anzahl der Wiederholungen, sowie der zu wiederholende 
Wert angegeben. Ein Beispiel verschafft Klarheit: 

Die Zeichenkette z.B.: ”$30303030 $30303030” hat eine Länge von 
8 Byte. Das IFF-Format übernimmt nicht diese 8 Byte, sondern 
schreibt ein Byte mit der Anzahl der sich wiederholenden Bytes und 
danach den Wert der Bytes, in unserem Fall wäre das $30. Damit das 
erste Byte nicht verwechselt wird, wird es zusätzlich negiert. 

Das ist das gesamte Geheimnis des IFF-Formates. Wenn man ein 
Bild mit vielen einfarbigen Flächen gemalt hat, wird es weniger 
Platz auf der Diskette verbrauchen, als eines, das viele verschiedene 
Muster besitzt. 

Wenn man programmiert, ist das IFF-Format eher hinderlich, weil 
man in die eigenen Programme jedesmal ein eigenes Konvertier- 
Programm einbauen müßte. Außerdem verbraucht das Bild dann 
mehr Speicherplatz, weil es einmal gepackt und einmal ungepackt 
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COLOR13 

$dffl 9a 

Color register 13 

COLOR14 

$dffl9c 

Color register 14 

COLOR15 

Sdffl 9e 

Color register 15 

COLOR16 

Sdffl aO 

Color register 16 

COLOR17 

Sdffl a2 

Color register 17 

COLOR 18 

Sdffl a4 

Color register 18 

COLOR 19 

Sdffl a6 

Color register 19 

COLOR20 

Sdffl a8 

Color register 20 

COLOR21 

Sdffl aa 

Color register 21 

COLOR22 

Sdffl ac 

Color register 22 

COLOR23 

Sdffl ae 

Color register 23 

COLOR24 

Sdffl bO 

Color register 24 

COLOR25 

Sdffl b2 

Color register 25 

COLOR26 

Sdffl b4 

Color register 26 

COLOR27 

Sdffl b6 

Color register 27 

COLOR28 

Sdffl b8 

Color register 28 

COLOR29 

Sdffl ba 

Color register 29 

COLOR30 

Sdffl bc 

Color register 30 

COLOR31 

Sdffl bc 

Color register 3 1 
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IV DIE PROGRAMMDISKETTE 


Um Ihnen das Abtippen der oft sehr langen Programmlistmgs zu er¬ 
sparen, haben wir dem Buch eine Diskette beigelegt, auf der nicht 
nur alle im Buch besprochenen Listings, sondern auch alle dazu¬ 
gehörigen Grafiken, Musikstücke und Tools enthalten sind. Wenn 
Sie im CU 

dir opt a 

eingeben, sollten sich folgende Files und Verzeichnisse aut der 


Beispieldiskette befinden: 

Source (dir) 

50 Bobs.s 

5PlanesMaskel Blit.s 

BobsZoomen.s 

EinfachesKopieren.s 

FlaechenFuellen.s 

JumpLaufschrift.s 

KopierenM itMaske.s 

MehrereObjekte.s 

MusterFuellen.s 

SinusLaufschrift.s 

Sternenhimmel.s 

c (dir) 

cd 

devs (dir) 

systeni-configuration 

RAW (dir) 

I6xl6_lpl-breit.raw 
32x32_5pl.con 
Bob32x32_l pl.raw 


5Planesl Blit.s 
Animationen.s 
CopperAGA.s 
EinObjekt.s 
Joysticks 

K oord i na te n Lau fsc h r i ft. s 
LinienZiehen.s 
music.s 

ObjekteDrehen.s 

SpeicherLoeschen.s 


dir 


16x161 pl.raw 
Bob32x32 I -breit.raw 
Bob32x32 5.con 
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Bob32x32_5.msk 
Bob32x32_5.raw 
BobZoom Mask.con 
ColorMask.con 
Hintergrund, raw 

IFF (dir) 

16x 16_ 1 pl-breit. iff 
32x32_5pl.iff 
Bob32x32_5pl.iff 
Bob_16_3pl.iff 
Hintergrund.iff 


BITPLANE-MIXER 

Boz_3pl.tab2 

Kords.tab 

music SinusDat.tab 


Bob32x32_5.msk.con 
Bob32x32_5pl-breit.con 
Bob_16_3pl.con 
Hintergrund.con 
Muster.raw 


16x 16_1 pl.ifF 

Bob32x32_l pl.iff 
BobZoom Mask. iff 
ColorMask.iff 
Muster, iff 


JumpLaufschrift 

ObjekteDrehen 


Boz_3pl.tab 

IFF-Convert-Utility 

KreisDat.tab 


Demos (dir) 

50Bobs 

Koord i naten Lau fsc hrift 
SinusLaufschrift 
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V. LITERATURVERZEICHNIS 


Falls Sie grundlegende Fragen über den Amiga, seine Bausteine oder 
die Assemblerprogrammierung haben, können Sie in der unten ange¬ 
führten Literatur nachschlagen: 

1. Amiga Spiele selber programmieren, Band I 
1996 Verlag Lechner München 

ISBN 

2. Amiga Hardware Reference Manual 

1986 Addison Wesley, Inc. 

ISBN 0-201-1 1077-6 

update Version 1989 
ISBN 0-201 -18157-6 

Grundlagen über die Assemblerprogrammierung und das Amiga- 
Betriebssystem können sie in den unten angeführten Büchern 
nachlesen: 

3. ASSEMBLERPRAXIS, Niki Laber 

1992 Verlag Gabriele Lechner 
ISBN 3-926858-38-9 

4. AMIGA DELUXE PAINT IV, Walter Friedhuber u. Anton Koller 

1992 Verlag Gabriele Lechner 
ISBN 3-926858-33-8 

5. The Amiga DOS Manual, (englische Originalfassung) 

1986 Bantam Books 
ISBN 0-553-34294-0 

6. AmigaDOS Handbuch 

Deutsche Übersetztung vom engl. Original, M&T ISBN 3- 
89090-465-3 



7. M68000 Familie Teil I, Hilf/Nausch 

1984 tewi 

ISBN 3-921-803-16-0 

8. M68000 Familie Teil 2. Hilf/Nausch 

1984 tewi 

ISBN 3-921-803-30-6 

9. Die 68000er Serie Buch I. Nachmann 

1986 Elektor Verlag 
ISBN 3-921608-42-2 

10. Die 68000er Serie Buch 2, Nachmann 

1986 Elektor Verlag 
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STICHWORTVERZEICHNIS 


A 


I 


Animationen 

58 

Interrupt 

233 

Assembler 

1 1 



AGA-Chipset 

121 

K 




Koordinatentabelle 

158 

B 


Kompatibilität 

13 

Bitplane 

31 



Blitterregister 

65 

L 


Blitterwait 

106 

Line 

65 

Bobs 

203 

Labels 

147 



Low-Word 

73 

C 




Chip-RAM 

40 

M 


Convert-Utility 

240 

Maxon-Assembler 

1 1 

Copper 

13 

Monitor 

13 



Miniterms 

37 

1) 


Maske 

51 

Datenregister 

213 

Module 

9 

Doublebuffering 

1 19 

Mod u Io 

32 

Drehen 

75 





() 


E 


Objekte 

179 

Editor 

12 





P 


F 


Pattern 

15 

Flächen füllen 

86 

Playfields 

180 

Farbregister 

124 

Prozessor 

230 

Farbtabelle 

242 



Farbwerte 

242 

R 




RAW-Format 

169 

H 


Register 

31 

1 lardware-Register 

233 



Flintergrundfarbe 

51 
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s 


Samples 

15 

Soundtracker 

15 

Sinus-Laufschrift 

143 

Schleife 

41 

Seka-Assembler 

11 

Shortcut 

12 

T 

Tricks 

106 

u 

Unterroutine 

59 

V 

Videonachbearbeitung 

W 

Wait 
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AMIGA SPIELE 

SELBER PROGRAMMIEREN 

BAND 2 

Mit der Buchreihe „Amiga Spiele selber programmieren“ 
werden sowohl Fortgeschrittene als auch Einsteiger in die 
Spieleprogrammierung eingeführt. Band 2 beschäftigt sich 
mit den Programmier-Tricks und -Feinheiten. Den Beginn 
bildet eine Einführung in die Musikprogrammierung, damit 
Sie eigene Module in Ihr Spiel integrieren können. Ein 
großes Kapitel ist dem Blitter, einem der wichtigsten 
Bausteine des Amigas, gewidmet. Anhand von vielen prakti¬ 
schen Programmbeispielen wird das Zusammenspiel der 
einzelnen Chips, wie Blitter und Copper erklärt. 
Programmbeispiele: das AGA-Chipset und die Darstellung 
von 256 Farben, Sinuslaufschrift, Laufschrift nach 
Koordinatentabelle, Jump-Laufschrift, mehrere Objekte 
gleichzeitig bewegen, Bobs zoomen, Sternenhimmel uvm. 

Alle Programmlistings, Grafiken und Musikstücke, sowie 
einige nützliche Tools finden Sie auf der beiliegenden 
Programmdiskette. 
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